5500 


Information 


Processing Systems 


FORTRAN COMPILER 
REFERENCE MANUAL 


Burroughs 
B55000 
INFORMATION PROCESSING SYSTEMS 


FORTRAN COMPILER REFERENCE MANUAL 


BUSINESS MACHINES GROUP 
SALES TECHNICAL SERVICES 
SYSTEMS DOCUMENTATION 


Burroughs Corporation 3) 


Detroit, Michigan 48232 


Printed in U.S. America 4-68 1032083 


COPYRIGHT © 1967, 1968 BURROUGHS CORPORATION 


AA 945 756 


Burroughs Corporation believes the program described in this 
manual to be accurate and reliable, and much care has been 
taken in its preparation. However, the Corporation cannot 
accept any responsibility, financial or otherwise, for any con- 
sequences arising out of the use of this material. The infor- 
mation contained herein is subject to change. Revisions may 
be issued to advise of such changes and/or additions. 


TABLE OF CONTENTS . 


SECTION TITLE PAGE 

ENTRODUCT ION? sei oc. oe “en €e. ve) we ee Be ge a. Ge ee 

1 GENERAL PROPERTIES . «© «© «© © © © © © «© © «© © Lat 
GOTO PAd i dee tee mee ee ye Vee 1-1 

Program Cards: 4 4: we 4 -@ (tr cel cel one ae SY “en SH 1-1 

Comment: Cards: 6 6 6 °e .<6. MWS le ee RP Are 1-3 

Dollar Sign Card. « 4 «© «© * S&S « «es © « “4 

Deck “Se@t-UPG “sa, Rue. 6: cel ee ee ow Se Ge SA 

2 CHARACTER SET, CONSTANTS, VARIABLES. .... 2-1 
CHATACTEYD (S60: 6 oa). G. e: (eS sede ee ee a a. RL 

Da Balter se Sa ee wl Se EO RS OR ee we BS 2-1 

‘Letters. wo ugh ae WE Sn gh pe SR ae ae aw 2-1 

Special Characters ........ 2=1 

CONSTANUS «oe ce eo we ow GS a oO | es 2-2 

Integer Constant . . .«. « « « «© « » 2-3 

Real Constant. .« « «© «© « «© © «© «© © 2-3 

Double Precision Constants .... 2-4 

Complex Constant . .... 6 «© « « 2-5 

Logical Constant « «« «© «4 «© « «* «© % 2-5 

‘ Hollerith Constant ......« .e e 2-5 

Variabpbes: fe se ares 4b. a et Dw ee eR OR a BSS 

Sinphe Vartaple. - «ow Ge se Se a cee OSG 

Ssubscripted Variable ....... 2-7 

5 EXPRESSIONS. « « «© © «© © © © © © © © © © © © 3m 
General. sw a Sw aS © @ 6. ee Oe we eS 3- 

Arithmetic Expression . .... « « « -« 3-1 
Logical Expression. . .« « »« « « « « « » 3- 

Relation .« 2+ © «© «© «© «© «© » «© © «© ©) 3m5 

y ASSIGNMENT STATEMENTS. . . . «© «© «© © © © «© ©) Ael 
GEn6PaE: 6: +a. 2 we Js) ae Se Ee A 

Arithmetic Assignment Statement .... 4-1 


a ipa ts 


SECTION 


iv 


4 (cont ) 


TABLE OF CONTENTS (cont) 
TITLE 


Logical Assignment Statement. . 


ASSIGN Statement. .«. . « «© «6 «© « 


CONTROL STATEMENTS . . «© © © «© © «© «© 
General . . «6 « 6 «© « © «© « » 
Unconditional GO TO Statement . 
Computed GO TO Statement. .. . 
Assigned GO TO Statement. .. . 


Arithmetic IF Statement... . 
Logical IF Statement. .... « 
DO Statement. .« « «© «© « « © « « 
CONTINUE Statement. . .... » 
PAUSE Statement . . . «6 «6 « « -« 
STOP or CALL EXIT Statement. . 
RETURN Statement. . . ©. « « « « 


CALL Statement. . . .« « « « « « 


DECLARATIVE STATEMENTS . . «© «© «© «© « 
General e e © e e e ° e ° e e . 


DIMENSION Statement ...... 


Variable Dimensions ....e.. 
COMMON Statement. . ....« 6 « 
EQUIVALENCE Statement... . 
Type Statement. . . «© « «© « « « 
EXTERNAL Statement. . .... » 
DATA Statement. . . «6 «© 6 e« « e 
ENPUT/OULPUTS 3a: ee te. Sl ee es ea 
General .« . « « «© © © « © © « « 
Input Statements. @- De, ea Se IBS dota 


Formatted Input Statements 


Unformatted Input Statements 


Output Statements . ....«. » 


Formatted Output Statements. 


1 


ND 


1 
Ln = WwW 


We Ot Ut Ut Ot Ot Tt TT OTE FT Tt oF“ 
PB Fr © & Fg 4 
Oo we won Ww 


| 
be 
© 


SECTION 


Z (cont ) 


TITLE 


Unformatted Output 


TOOLS ES) fe seen lk i GO 
Implied DO Loop... . 
Action Labels .... . 


REWIND Statement . 


TABLE OF CONTENTS (cont) 


Statements. 


e e ° ° e 


Auxiliary I/O Statements. .... 


BACKSPACE Statement. .... 


ENDFILE Statement. 
CLOSE Statement. . 
LOCK Statement. . 
PURGE Statement. . 


FORMAT Statement. ... 


Integer Conversion 
Using Iw .... -« 


Integer Conversion 
Using Iw . .«.e. 


Real Conversion on 
Using Fw.d... . 


Real Conversion on 
Using Fw.d... . 


Real Conversion on 
Using Ew.d . ... 


Real Conversion on 
Using Ew.d... . 


on Input 


on Output 


Input 


Out put 


e e e ° e 


Input 


Output 


Double Precision Conversion on 


Input Using Dw.d . 


Double Precision Conversion on 


Output Using Dw.d. 


Real Conversion on 
Using Gw.d ry e e ° 


Real Conversion on 
Using Gw.d e ry ° ° 


Input 


Output 


Octal Conversion on Input 


Using Ow . « « « « 


Octal Conversion on Output 


Us ing Ow . e e ° e 


Logical Conversion on Input 


Using Lw .... .- 


PAGE 


NEON ON N NON NO NU 
I 
KP Oo O DAN ANH WU 


SECTION 


7 (cont ) 


TABLE OF CONTENTS (cont) 


TITLE 


Logical Conversion on Output 


Using bw .6« « «© « « 


Alphanumeric Conversion on Input 


Using AW «6 «© « © « 


Alphanumeric Conversion on Output 


Using Aw . « «© « « « 


Inputting a Character String 


Using wHs. . .« 6 « . 


Outputting a Character String 


Using wHs. .« « © e« -» 


Inputting a Character String 


Using a ase e e e e e 


Outputting a Character String 


Us ani ey. ce ae ce et 


Skipping Characters Using nx . . 


Editing Using Tn. . 


Scale Factor nP... 


° 


Scale Factor on Input. 


Scale Factor on Output 


Format Specification in an 


Carriage Control. . 


Use of Slash (/).. 


Repeat Specifications. 


Format and I/O List Interac 


NAMELIST Statement... . 


Input Using NAMELIST 


Output Using NAMELIST. 


Tape and Disk I/O. .... 
Unformatted Output . 
BLOCKING . « 6 «© «© + 
BUFFERING. .« 2. 06 « - 
DGSks F/O, wove ase 8 

SERIAL Disk I/0 
RANDOM Disk 1/0 


SECTION 


8 


APPENDIX 
APPENDIX 
APPENDIX 
APPENDIX 
APPENDIX 
APPENDIX 


APPENDIX 
APPENDIX 
APPENDIX 
INDEX. . 


FIGURE 


ZeooeaAw eB 


TABLE OF CONTENTS (cont) 


TITLE 


SUBPROGRAMS. . . 6 «© « « 
General .« . « « »« -« 


Functions « « « « » 


Statement Functions. .. . 


Tntrinsic Functions. ... 


External Functions ... . 


Referencing External 


Subroutine. . ..e. -« 


Functions 


Defining Subroutine Subprograms 


Nonstandard Returns from Subroutine 


and Functions .. . 


Multiple Entry Points 


Subprogram. .« .. . 


BLOCK DATA. ... . 


GUOSSARY ). 6 a> 6 ca wee oe 
PIURCARDS's «da (8% 4 Als 
DOLLAR SIGN CARDS ..... 
COMPILE TIME ERROR MESSAGES 


OBJECT TIME ERROR TERMINATION 


B 5500 VERSUS USASI FORTRAN, 


DIFFERENCES e e e e e e e e 
COLLATING SEQUENCE. ... . 
BIT-MANTIPULATION INTRINSICS 


into a 


MESSAGES. 


EXTENSIONS 


PRT CONTENTS OF A FORTRAN OBJECT PROGRAM. . 


LIST OF TLLUSTRATIONS 


TITLE 


Program Card Layout... . 
Comment Card. . . .... « 


Dollar Sign Card. ... .. 


cS) 


PAGE 


vii 


FIGURE 


viii 


LIST OF ILLUSTRATIONS (cont) 
TELE 
DO Nesting. e e e 6 e s € e Sd e Sd 2 e e e e 
File Format Using Unformatted Output 


Statements. s e e ° e e e e e e ® a e e ° e 


LIST OF TABLES 


TITLE 
Resultant Type for Operation A**B ,... . 
Combination of Elements ..... +» 6 eo. 
Definitions of Logical Operators. ,... . 
Relations and Meanings. . . .. «56 5» « © « «@ 


Rules for Arithmetic Assignment Statement 
(v = a ) e ° e ° e e ° e e e e ° e a ° ° ° ° 


EQUIVALENCing Multiple Subscripts to 
One Subscript 2 « © *% 2 # 2 @ @ © @ 6% ow « 


Datum Conversions « « « «© © © «© #® © © «© # * 
Resulting Actions of an Intrinsic Function. 


File Default Descriptions ........ 


PAGE 


INTRODUCTION 


This manual provides a complete description of the Burroughs B 5500 


FORTRAN compiler language.* 


The FORTRAN language is designed for writing programs for scientific 
and engineering applications. Statements can be written in the 
general format of mathematical notation, thus increasing the ease 


of solving formula oriented problems. 


The B 5500 FORTRAN compiler operates under the control of the 
Master Control Program (MCP) and, similarly, the object code pro- 
duced by the compiler is executed under the control of the MCP. 
For a description of the B 5500 MCP, refer to the B 5500 System 
Operation Manual (1024916). 


The B 5500 FORTRAN compiler language is based on USASI FORTRAN 
(refer to the publication: ASA X3.9-1966). Refer to appendix F 
of this manual for a listing of the constructs which differ from 
USAST FORTRAN. 


* FORTRAN is an acronym for FORmula TRANslation and was originally 
developed for International Business Machine equipment. 
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SECTION 1 
GENERAL PROPERTIES 


GENERAL. 

Normally, a FORTRAN source program is prepared on punched cards. 
These cards are of three general types: general program cards, 
comment cards, and dollar sign cards. These cards are free-form, 


with the exceptions noted below. 


PROGRAM CARDS. 


Program cards are used to contain FORTRAN statements under the 


following limitations (see figure 1-1): 


FORTRAN STATEMENTS 


22727 t 222k 2222222222 222222222222222222222222 222222222 
333331333333333333333333333333333333333333333333333333333333333333333333 333333333 


AAAAAAIAAASASAAAAAAAAAAAAAASAAAAAAAAAAAAGAAAAAAAAA AANA AA AAA AAA dada adda dagad 
A EE EEEEEELEEEEEELELLELELELEEEEELEDLESEEEE EES EE EEEERESEEEEE EEE E EEE 
GBEGEGGIEGESEEGC6ECEGC66CE6G CEE CE6CCECEECEECEGC EEC EEE CE6EC EEE CGE CEEG EEE EC GGG GbE GCEEGS 
TTVTNNTITITTTIITIIITIITTIT TTT T TTT TTT TTT TTT TTT TTT ITT 
BRGKHBSSKSSSHKGSSKKHKKKHKHHKHSHKHSHKKGSKKHHKKGHHKGKHHKGGHEGGGHHG GBH HGS SB HE BBB 8888 


Figure 1-1. Program Card Layout 


Ae Columns 1-5. The label of a labeled statement consists 
of from one to five digits and must be placed in columns 
1 through 5. The label may be placed anywhere within 
these columns or without leading zeros, i.e., neither 
blanks nor leading zeros are significant in differentia- 


ting statement labels. All labels within a program unit 


must be distinct. The label field is ignored on all non- 
executable statements except for cards containing FORMAT 


statements. 


Column 6. Column 6 of the initial card of a statement 
must be either blank or zero. Column 6 of a continuation 
card (any additional card after the initial card needed 

to contain the statement) must contain any character other 
than blank or zero. An unlimited number of continuation 


cards may follow an initial card. 


Blank characters are significant only in column 6 of a 
non-comment card, in a Hollerith constant, or ina 
Hollerith field specification. With these exceptions, 
blanks may be used or omitted without affecting the in- 


terpretation of a FORTRAN statement. 


Columns 7-72. Columns 7 through 72 contain the FORTRAN 


statement. 


Columns 73-80. These columns are not interpreted by the 
compiler and may contain identification or sequencing in- 
formation. This field is, however, analyzed when changes 


are merged with a source tape (see appendix Cc). 


Two or more statements may be punched on the same physical 
card if they are separated by semicolons. If columns 1 
through 5 of the card are interpreted as a label, the label 
corresponds to the first statement on the card. subsequent 


statements on that card are considered unlabeled. 


A program unit must have an END statement as its last card. 
The END statement is used only to tell the compiler that 


it has reached the end of a program unit. 


The END statement is a card with blanks in columns 1 
through 6, the characters E, N, and D once each and in 
that order in columns 7 through 72, preceded by, inter- 
spersed with, or followed by blanks. 


The END statement is not an executable statement. Ifa 
program attempts to execute an END statement, the program 


is terminated with an INVALID EOJ message. 


COMMENT CARD. 

Comment cards are not interpreted by the compiler, but their in- 
formation does appear on the compilation listing for documentation 
purposes. A comment card cannot be followed by a continuation 


card. Card punching limitations are as follows (see figure 1-2): 


a. Column 1. A comment card must have the comment code, the 


letter C, in column 1. 


b. Columns 2-72. Columns 2 through 72 may be used for com- 


ments. 


c. Columns 73-80. These columns may contain identification 


or sequencing information. 


COMMENTS eee. 
OR 


SEQUENCE 


DODODODODDDDDDDOONDDDDDDDDDNDDOOKONDDHDHDDDDDNDDDDHDNDODNHDOHDOON00000D 


10 11 12 13 14 15 16 17 16 19 20 21 22 23 24 25 26 27 26 29 30 31 32 33 34 35 36 37 36 39 40 41 42 43 44 45 46 47 48 49 50 5! 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 6B 69 70 71 72/73 74 75 76 77 78 79 80 


PERE RE REE RERE Eee e ROPE eee eee Peee Paseo eee ee eee eeeeeee Sees 


mm Oo SS 
=o 


110 kkk kkk tk kkk 2222222222222 222222222 
3139333333333333333333333333333333333333333333333333333333393393333933933 933393993 
A AAGAAASAAASAAAAAAAAAAAAAAAAAAAAASAAAAAAAGAAAAAAAAAA AAA AA AMAA AAA aa 
A EEE LELELEELEEEEEEELEEEEELELEEEREEELELELESESELEEESEESEEE RE ERE REE 
BIEEGEGGGGG6GEEGEEEECCCEEECG6G66G6666G66666ECFEC ECC ECE EEE GEE EGEGEE EE EEE EEE GEE EEEEEES 
W77777777777 77727 TTT 
BIRBRBRBKESHSSSSSSHSSSHBRHGSSSHKSHHHKKKKGHHHHHHHKHKHHHHHGHHHGHHHHGGBGGB BBB SB BBB BB 


Figure 1-2. Comment Card 


DOLLAR SIGN CARD. 
A dollar sign card is used to specify certain compiler options (see 
appendix B). Punching limitations of the dollar sign card are as 


follows (see figure 1-3): 


a. Column 1. Column 1 of a dollar sign card must contain 


a $. 


b. Columns 2-72. Columns 2 through 72 contain the compiler 


options desired. 


Cc. Columns 73-80. These columns may contain identification 


or sequencing information. 


COMPILER OPTIONS ae 


SEQUENCE 


DODDDKCHHHDDKDDDDDDDDDDDDNKHDHHDODOHDDDDDDHDDDDNOADDDD0HDDNNDDDD OO O0000000 
9 10 1112 13 14 15 16 17 18 19 20.21 22 23 24 25 26 27 28 20 90 31 32-33 94 35 38 37 3B 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 GI 62 63 G4 65 66 67 68 69 70 71 72173 74 75 76 77 78 79 80 
TEETATADDTTPT PTT TTT TATA TTT TTT Tada 
222222222222 222222222222222222222222222222222222222222222222222222222 2122222222 
31333333333333933333333333933233333333333333333333333333333333333333333333 333333333 
41444444444444444444444464444444444444464446444444444444444444644644648446444444444444444 
35955555555555555555555555555555555555555555555555555555555555555555555555555555 
GIGGG6G6666E66666666666666666666666666E6CCC6CEGCE6G6G E66 E EEE EEE EGE EGE6GG6G6G 666666666 
WVTTTTTT TTT TTT dddddddddddddd9dd9dd999999999000777797~IT+«T 


BIGBSEESEESKEEEEEHEKAEEEKEKHEKSKKEKSHBKEKKEKBEEKEKEKKKKEKKBEKKEEEE888KG888EEEEGHEEEGS8H8888EES 


Figure 1-3. Dollar Sign Card 


DECK SET-UP. 


The arrangement of cards for use with the FORTRAN compiler is as 
follows: 
? COMPILE CARD 
? FORTRAN FILE LABEL EQUATION CARDS See B 5500 
? FORTRAN CONTROL CARDS Operation Manual 
? OBJECT FILE LABEL EQUATION CARDS Nga TO2a046 
? OBJECT CONTROL CARDS 


DATA CARD 
DOLLAR SIGN CARD 
FILE CARDS 


SOURCE DECK 
or 
PATCH DECK 


END 


See appendices 


SECTION 2 
CHARACTER SET, CONSTANTS, VARIABLES 


CHARACTER SET. 
The FORTRAN character set consists of digits, letters, and special 


characters. 


DIGITS. 
A digit is any one of the following ten characters: Og! Sey 24. Bg. By 
4 Oy pg Oye. Ove Digits will be in the decimal number system unless 


otherwise specified. 


LETTERS. 
A letter is any one of the following 26 characters: A, B, C; D,; E, 
PF, G, H; I; J» Ky; Ly M; Ns O; Py Q, Ry Sy Ts Us Vy We Xs Ys Z. 


SPECIAL CHARACTERS. 
The special characters are divided into two categories, the USAST 


FORTRAN special characters and those added to B 5500 FORTRAN. 
The USASI FORTRAN special characters are the following: 


Character Name 


= Equal Sign 

+ Plus Sign 

- Minus Sign 

* Asterisk 

/ Slash 

( Left Parenthesis 

) Right Parenthesis 

’ Comma 

: Decimal Point 
Blank 

$ Dollar Sign 


B 5500 FORTRAN also recognizes the quote character (), 


The following BCL* characters are recognized as alternatives to 


the standard FORTRAN character set: 


FORTRAN BCL 
Character Alternative 
+ & 
= # ors 


( % 
) [ 
* x (BCL multiplication sien) 


iy @or : 


The relational operators are represented in FORTRAN as two-letter 
mnemonics which are preceded and followed by a period. These 


operators and their BCL alternatives are: 


FORTRAN BCL 

Mnemonic Meaning Alternative 
LT. Less Than < 
-LE. Less Than or Equal s 
eis Not Equal # 
~GT. Greater Than > 
-GE. Greater Than or Equal = 
EQ. Equal = 

Two remaining BCL characters serve special purposes. The semicolon 


(;) may be used to separate two or more statements on one physical 
card, and may also be used in a Hollerith field. The right bracket 
(|) is reserved for use by the compiler. Imbedded blanks have no 


meaning in a FORTRAN statement except in a Hollerith field. 


CONSTANTS. 

Six basic types of constants are allowed in the FORTRAN programing 
language: integer, real, double precision, complex, logical, and 
Hollerith. 


* BCL is an abbreviation for Burroughs Common Language. 


INTEGER CONSTANT. 


An integer constant is formed by a string of decimal digits. 


The general form is: 


where -549755813887 < N < +549755813887 


An integer constant is written without a decimal point or exponent. 


If the range specified above is exceeded, the constant is inter- 


preted as a double precision constant. 


Examples: 


12 
-16729 
3624138 


REAL CONSTANT. 
A real constant is a string of decimal digits with a decimal point 


and, optionally, an exponent. 


The general form is: 


where M and N are strings of decimal digits, only 


one of which may be blank; X is a signed or un- 
signed one or two-digit integer which is the ex- 
ponent. 


A real constant may be signed or unsigned. 


An exponent is optional. If it is used, then a letter E follows 


the mantissa and precedes the exponent. 


The exponent, if present, is interpreted such that 10* is multiplied 


times the mantissa. 


4,314E68 > ABS(R) > 8.758E-47, where R is a real constant, is the 


range within which a real constant may fall. 


Examples: 
56.9 
~075 
-253. 


71.32E+02 (which represents 7132.0) 
~71.32E-2 (which represents ~.7132) 


DOUBLE PRECISION CONSTANTS. 
A double precision constant is of the same form as a real constant, 
except that its mantissa may contain up to 23 decimal digits and 


its exponent is preceded by a D instead of an E. 


The general form is: 


M.NDX 


where M and N are strings of decimal digits, only 
one of which may be blank; X is a signed or unsigned | 
one or two-digit integer which is the exponent. 


The mantissa may contain up to 23 decimal digits. If more are used, 


then the mantissa is truncated to the 23 most-significant digits. 


The range of a double precision constant is identical to that of a 


real constant. 


A constant which does not have an exponent but which specifies more 
digits than a single precision value can maintain is interpreted as 


a double precision constant. 


Examples: 


12D-1 
-5.36D+56 
52D-07 
~713D-17 


COMPLEX CONSTANT. 
A complex constant, in the mathematical sense, is composed of a 


real part and an imaginary part. 


The general form is: 


where M is the real part and 
N is the imaginary part. 


Each of the two components may be either a real constant or an 


integer constant. 


Double precision components are not permitted. 


Examples: 
Complex Mathematical 
Constant Interpretation 
(5,64.2) 6 By 4 
(0,-1) -i 
(3.5E-2,75.9) 035 + 75.93 


LOGICAL CONSTANT. 


A logical constant may be either true or false. 


The general form is: 


. TRUE. 
FALSE. 


Examples: 


- TRUE. 


~-FALSE. 


HOLLERITH CONSTANT. 
A Hollerith constant is a string of any valid FORTRAN characters. 


2-5 


The general form is: 


where w is the width of the 
string and s is the string. 


where s is the string. 


Blanks appearing in the string must be included in the field width 


w when form wHs is used. 


The string may contain any valid FORTRAN characters except the 


quote character (") and its alternatives: @ and :. 
strings are stored in memory, six characters per word. 


Although a B 5500 word is capable of storing eight characters, only 
the six right-most character positions are used for storage. The 


two left-most character positions always contain zeros. 


If a string does not contain a multiple of six characters, then in 
the last word used for storing the string the remaining characters 


are stored left-justified over a field of blanks. 


Examples: (b represents blank) 


2HbT 

"DOUT" 

5HABCDE 
VARIABLES. 
There are two forms of variables: simple and subscripted. Each of 
these are, in turn, classified into five basic types: integer, 


real, double precision, complex, and logical. 


SIMPLE VARIABLE. 


A simple variable represents a single value, 


The general form is: 


From one to six alphanumeric characters, 
the first of which must be alphabetic. 


A variable name with a first character of I, J; K, L, M, or N 


implicitly types that variable as an integer variable. A variable 
name beginning with any other alphabetic character is implicitly 
typed as a real variable unless otherwise defined in a Type state- 


ment. 


A variable of type DOUBLE PRECISTON, COMPLEX, or LOGICAL must be 


declared as such in a Type statement. 


Examples: 
Integer Real 
Variables Variables 
IB2 ATL253 
J12 TSUB2 
KALPHA Z5QD 


SUBSCRIPTED VARIABLE. 
A subscripted variable refers to a particular element of an array 
of the same name as the subscripted variable. (See section 6 for 


additional discussion). 


The general form is: 


where N is the array name, A, »Adee+-.9a, are 


arithmetic expressions which determine the 
values of the subscripts of the subscripted 
variable, and n is the number of subscripts 
declared in the declaration of the array N. 


A subscripted variable is named and typed according to the same 


rules as a simple variable. 


All elements of an array must be of the same type, i.e., if N(2) 


is integer, then N(3) must also be integer. 
A subscript may be an integer or real arithmetic expression. 


If a subscript is a real arithmetic expression, then it will be 
evaluated and converted to integer by rounding before being used 


as a subscript. 


Ssubscripted variables must have their subscript bounds specified 
in a DIMENSION, Type; or COMMON statement prior to their first 
appearance in either an executable statement or in a DATA state- 


ment. 


A subscript value, after any necessary conversion, must be greater 


than zero and may not exceed the bound specified for the array in 


the DIMENSION, Type; or COMMON statement in which it is declared. 


Multi-dimensioned arrays are stored with the left-most subscript 
varying most rapidly and the right-most subscript varying least 


rapidly. 


Examples: 


B(T) 

GSUB(8*K+3,L) 
DMIN(1,J,K) 
TSUB(I,J*K/L,C,B*D,F/G) 


SECTION 3 
EXPRESSIONS 


GENERAL. 
An expression is any constant, variable, or function reference, or 
combination of these separated by operators, commas, or parentheses. 


There are two types of expressions: 


a. Arithmetic. 


b. Logical. 


ARITHMETIC EXPRESSION. 


An arithmetic expression is a rule for computing a numerical value. 


The general form is: 


Any constant, variable, or function ref- 
erence, or combination of these separated 
by operators, commas, or parentheses. 


An arithmetic expression may contain the following arithmetic 


operators: 
Operator Meaning 
+ Addition 


- Subtraction 


* Multiplication 

ra Division 

** Exponentiation 

() Grouping Operator Pair 


Arithmetic expressions may be connected by arithmetic operators 
to form other expressions, provided no two operators appear in 
sequence and no arithmetic operator is assumed to be present. Ex- 


amples of invalid arithmetic expressions are: 


A++B 


(A+2)(B+3) 


Any arithmetic expression can be enclosed in parentheses. 


All actual arguments of a function reference are evaluated before 


the function is evaluated. 


Parentheses may be used in an arithmetic expression to denote the 
order in which operations are to be performed. Parentheses have 
first precedence in determining the order of evaluation and, when 
nested parentheses occur, evaluation proceeds from the innermost 


to outermost set. 


The precedence order used in evaluating an arithmetic expression 


is as follows: 


(highest ) Primary 
Exponentiation 
Multiplication and division 
(lowest ) Addition and subtraction 


where the precedence for successive operators of the same level is 


from left to right, e.g., A**B**C is evaluated as (A*¥*B)*¥*C, 


For the operation A**B, the valid combinations and results are 


noted in table 3-1. 


Table 3-1 
Resultant Type for Operation A**B 


Exponent B 


Double 
Precision 


Complex 


Precision 


Complex 


| aateger | Rear 


Integer 
Real 
Double 


Precision 


Complex 


Real 
Real 
Double 


Precision 


Complex 


Double 
Precision 


Double 
Precision 


Double 
Precision 


Complex 
(see NOTE) 


Not permitted 


Not permitted 


Not permitted 


Not permitted 


NOTE 


The double precision exponent is con- 
verted to real before exponentiation. 


Any element may be combined with any other element through use of 
all the arithmetic operators except exponentiation. The resultant 
type is listed in table 3-2 for A OP B,;, where A and B are operands 


and OP is either +, -, *, or /. 


Examples: 


B 
2.316 

K + 1 

(X + A(I,J,L) - SIN(Y(K))) 
KX - C + Y(I,L) * 16.397 


Table 3-2 


Combination of Elements 


| comptex 


Complex 


Integer Integer 


(see NOTE 1) 
Real 


Precision 


Double 
Precision 


Double 
Precision 


Real Real Complex 


Double 
Precision 


Double 
Precision 


Double 
Precision 


Complex 
(see NOTE 2) 


Complex Complex Complex Complex 


(see NOTE 2) 


SSS i | Ace eSntstEsStn SSSA 


Complex 


NOTE 1 


Integer division yields a truncated result. 


NOTE 2 


The double precision element is con- 
verted to real before the operation. 


LOGICAL EXPRESSION. 


A logical expression is a rule for computing a logical value. 


The general form is: 


Any constant, variable, or function ref- 


erence, or combination of these separated 
by operators, commas, or parentheses. 


Logical quantities may be combined by logical operators to form 
logical expressions in a manner analogous to the combination of 


arithmetic quantities by arithmetic operators. 


A logical quantity, of itself, may also constitute a logical ex- 


pression. 
A logical quantity may be: 


a. Any logical variable. 
b. Either of the logical constants .TRUE. or .FALSE. 
c. <Any logical function reference. 


d. Any relation. 
The logical operators are defined in table 3-3. 


The precedence of operators in the evaluation of logical expres- 


sions is: 


(highest ) Function reference 
**  (Exponentiation) 


* and / (Multiplication and division) 


+ and - (Addition and subtraction) 
ibieg-<bbesy “hOss aNbey sGTes «Gh: 
.NOT. 
.AND. 

(lowest) -OR. 


Parentheses may be used to alter the order of evaluation (just as 


in arithmetic expressions). 


Table 3-3 


Definitions of Logical Operators 


The expression .NOT. P is .TRUE. 
when P is ,.FALSE. The expression 
-NOT. P is .FALSE. when P is 

- TRUE. 


The expression P .AND. Q is .TRUE. 
when both P and Q are .TRUE. It 
is .FALSE. if either P or Q is 
»~-FALSE. or both are .FALSE. 


The expression P .OR. Q is .TRUE. 
if either P or Q; or both, are 
-TRUE. It is .FALSE. if and only 
if both P and Q are .FALSE. 


Examples: 


If A and B are logical expressions, then each of the following is 


also a logical expression: 


-NOT. B 
A 


(B) 


A.OR.B 


((B)) 


B .AND. A 


RELATION. 


A relation is a conditional logical expression. 


The general form is: 


A OP B 
where A and B are arithmetic expres- 
sions and OP is a relational operator. 


The relational operators and their meaning are noted in table 3-4. 


hee, 


Table 3-4 


Relations and Meanings 


Meaning 


GT. Greater Than A 


a er aa ad 

Ay .GE. Ay Ay Greater Than or Equal to Ay 
Ay Pa a he Ay Ay Less Than Ay 

Ay LE. Ay Ay Less Than or Equal to Ay 

Ay NE. Ay Ay Not Equal to Ay 

Ay -EQ. Ay Ay Equal to Ay 


NOTE 


Aj and Ad may be of type INTEGER, REAL, or DOUBLE 
PRECISION. Neither may be of type COMPLEX. 


Relations, when evaluated, may have one of two values, true or 


false. 


Chains of relations are not permitted, e.g. ; 
A .LT. B «LT. C€ 


A correct form would be: 


A .LT. B .AND. B .LT. C 


A .LT. B .AND. A .LT. C 


whichever is intended. 
Examples: 
(A; B, Q, Z; E, F; X; G,; Hy and Y are arithmetic expressions. ) 


A. EPS oR 
A .-T. B .AND. Q@ .GT. Z 
(E+F).NE.SIN(X).OR. (G-H).LT.ABS(Y) 


SECTION 4 
ASSIGNMENT STATEMENTS 


GENERAL. 


There are three types of assignment statements: 


a. Arithmetic assignment statement. 
b. Logical assignment statement. 


Cs ASSIGN statement. 


ARITHMETIC ASSIGNMENT STATEMENT. 

The arithmetic assignment statement causes the value represented 
by an arithmetic expression appearing to the right of the assign- 
ment operator (=) to be assigned to the simple or subscripted 


variable appearing to the left of the assignment operator. 


The general form is: 


where v represents a variable name, 
simple or subscripted, and a.e. rep- 
resents an arithmetic expression. 


The variable v cannot be of type LOGICAL. 


The rules provided in table 4-1 apply for type and value assign- 


ment in arithmetic expressions, 


Examples: 
X = Y+Z 
X(10) = A(5)+B(6)-(C/D) 
JX = 342 
X = 5.49 
X(1) = B(1)+cOS(A(1)) 
X(4) =D - C**2 


X(I,J) = A(I,J)+B(J,T) 


Table 4-1 


Rules for Arithmetic Assignment Statement (v = a) 


Integer 
Integer 


Integer 


Integer 
Real 
Real 
Real 


Real 


Double 
Precision 


Double 
Precision 


Double 
Precision 


Double 
Precision 


Complex 


Complex 


Complex 


Complex 


Integer 
Real 


Double 
Precision 


Complex 
Integer 
Real 


Double 
Precision 


Complex 


Integer 


Real 


Double 
Precision 


Complex 


Integer 
Real 


Double 
Precision 


Complex 


Rule 


Assign. 
Truncate to an integer and assign. 


Truncate to an integer and assign. 


Not permitted. 
Assign. 
Assign. 


Assign the most-significant part. 


Not permitted. 


Extend to double precision and assign. 
Extend to double precision and assign. 
Assign. 

Not 


permitted. 


Not 
Not 
Not 


permitted. 
permitted. 
permitted. 


Assign. 


LOGICAL ASSIGNMENT STATEMENT. 


The logical assignment statement causes the value represented by the 


logical expression appearing to the right of the assignment 


(=) to be assigned to the simple or subscripted variable of type 


LOGICAL appearing to the left of the replacement operator. 


The general form is: 


where v is a simple or subscripted 


variable of type LOGICAL and l.e. 


represents a logical expression. 


operator 


The variable v must be of type LOGICAL. 


Examples: 
(K, L, M, and N are logical variables. ) 


K = A .OR. B 

L(J,5) = .TRUE. 

M=A .LT. B 

N= Q .GT. R.AND. Z .LT. P 


ASSIGN STATEMENT. 
The ASSIGN statement is used to initialize an assigned GO TO 


statement (see section 5). 


The general form is: 


ASSIGN n TO t 


where n is a statement label ref- 
erenced in an assigned GO TO state- 


ment, and t is a simple integer or 
real variable appearing in the same 
assigned GO TO statement. 


The statement label n must be referenced in the assigned GO TO 


statement being initialized. 


The variable t must be the same variable referenced in the assigned 


GO TO statement being initialized. 


Example: 


ASSIGN 10 TO J 


SECTION 5 
CONTROL STATEMENTS 


GENERAL. 

Control statements are used to alter the normal flow of a program. 
They may transfer control to another part of the program, terminate 
computation, or control iterative processes. Control may be trans- 
ferred to labeled executable statements only. There are 11 dif- 


ferent control statements: 


a. Unconditional GO TO statement. 
b. Computed GO TO statement. 

c. Assigned GO TO statement. 

dad. Arithmetic IF statement. 

e. Logical IF statement. 

f. DO statement. 

Zo CONTINUE statement. 

h. PAUSE statement. 

i. STOP or CALL EXIT statement. 
j.- RETURN statement. 

k. CALL statement (not including CALL EXIT). 


UNCONDITIONAL GO TO STATEMENT. 

Execution of this statement causes control to be transferred to a 
statement other than that sequentially following the unconditional 
GO TO statement. 


The general form is: 
GO TO n 
where n is a statement label which 
exists within the same program unit. 


A statement label n must be defined within the same program unit 


as the unconditional GO TO statement which references it. 


The statement labeled n may appear before or after the uncondi- 


tional GO TO statement referencing it. 


Kxample: 


GO TO 31 


COMPUTED GO TO STATEMENT. 
Execution of this statement causes control to be transferred to one 
of several statements other than that sequentially following the 


computed GO TO statement. 


The general form is: 


GO TO (n, mas---on,)s t 


where nj:No>....n; are statement labels 
and t is an arithmetic expression. 


Control will be transferred to the statement label whose position 
in the list is equal to the value of the arithmetic expression 
t,; 1.e.; nee 


The statement labels Ny My ree e oN, must exist in the same program 


2 
unit as the computed GO TO statement. 


The computed GO TO statement is valid for values of t such that 
1s t < i, otherwise the program will be terminated with an INVALID 
INDEX. 


The arithmetic expression t must be of type INTEGER or of type 
REAL. 


If t is of type REAL, it will be evaluated and then rounded to an 


integer. 


nr 
] 
nw 


Example: 


K=4 
GO TO (50,40,30,20,10) ,K 


Execution of these two statements will cause control to be trans- 


ferred to statement 20. 


ASSIGNED GO TO STATEMENT. 
Execution of this statement causes control to be transferred to 
one of several alternative statements other than that sequentially 


following the assigned GO TO statement. 


The general form is: 


GO TO t,; (n, on,+---on,) 


where t is a simple integer or real vari- 
able and Ny My ress oN, are statement labels. 


Control will be transferred to the statement whose label has been 


ASSIGNed to t with an ASSIGN statement. 


The values ASSTGNable to t are the actual statement labels appear- 


ing in the list n,n mn... 


ee oe i 


The variable t must be a simple integer or real variable. 


If t has not been assigned a label appearing in the list, an INVALID 
INDEX termination of the program will result. 


The statement labels Ny Moree eon, must appear in the same program 
unit as the ASSIGN statement and the ASSIGNed GO TO statement (see 
ASSIGN statement, section 4). 


Example: 


ASSIGN 10 TO J 
GO TO J,(50,40,30,20,10) 


Execution of these two statements will cause control to be trans- 


ferred to statement 10. 


ARITHMETIC IF STATEMENT. 

Execution of the arithmetic IF statement causes an arithmetic 
expression to be evaluated and a different branch to be made de- 
pending upon whether the expression evaluated is negative, zero, or 


positive. 


The general form is: 


IF(a.e.)n, mon, 
where a.e. is an arithmetic expression 
and n Ms and n, are statement labels. 


us 3 


Execution of the arithmetic IF statement causes control to be trans- 
ferred to N,M,» or n. if a.e. is less than, equal to, or greater 
than zero, respectively. 


The arithmetic expression a.e. may not be complex. 


Examples: 


TF(A-B) 1,2;3 
IF(X(1L,J)-C*E) 43,51,96 


LOGICAL IF STATEMENT. 

Execution of the logical IF statement causes a logical expression 
to be evaluated and the sequence of execution of the program state- 
ments to be altered, depending upon whether the logical expression 


evaluated is true or false. 


The general form is: 


where l.e. is a logical expression and 
Ss is an executable FORTRAN statement. 


The statement s may be any executable FORTRAN statement except a 
DO statement. 
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Execution of the logical IF statement results in the logical ex- 
pression l.e. being evaluated. If l.e. is true, statement s is 
executed. If l.e. is false, then statement s is not executed, and 
control is transferred to the next sequential executable statement 


following the logical IF statement. 
Examples: 
X and Y are of type LOGICAL. 


TF(X .AND. Y) A = 3.1 


TF(A .LE. B .OR. I .EQ. 0) GO TO 5 


DO STATEMENT. 


The DO statement provides a means of controlling program loops. 


The general form is: 


DO m i=n, >»,n 


: eige e 


3 
where m is a statement label, i 
is a variable, and nj1,n2,;, and 
n3 are arithmetic expressions. 


Execution of a DO statement results in the following actions: 


a. The control variable i is set to the initial value ny: 


b. All executable statements up to and including the terminal 


statement are executed. 


c. The control variable iis incremented by tae 
d. The value of the control variable i is compared to the 
terminal value N,- If the terminal value has been ex- 


ceeded, control is transferred to the first executable 
statement following the terminal statement. Otherwise, 
steps b through d are repeated until the control variable 


comparison is satisfied. 


In the general form, the control .variable i is a simple integer or 


real variable. 


bee, 


In the general form, m is the label of an executable statement 


terminating the DO loop. 


In the general form, n n and n, are integer or real arithmetic 


A a 3 
expressions which are the initial, terminal, and incremental para- 
meters, respectively, for the control variable i. 


If not specified, n, is assumed to be l. 


> 


If present, n, must be greater than zero. 


3 


In the general form, n, must be greater than n 


2 i 


The DO statement is always executed once with its initial value. 


The DO parameter is incremented and compared to n, prior to its 


2 
use and may be modified by any statement within the range of the 


DO loop. 


The control variable i is available for use by all statements within 
the DO loop; including the terminal statement, and may be modified . 
as desired. The control variable i is available for computation 
when exiting from a DO loop by transferring outside the loop and 
not making a normal exit. When a normal exit is made from the DO 


loop, the control variable is undefined. 


A DO statement may appear within a DO loop. This is defined as 
being a DO nest. However, all statements in the range of the 


latter DO loops must be within the range of the initial DO loop 


vo[ vo [_ 


(see figure 5-1). 


DO 


vof 


Figure 5-1. DO Nesting 


Nested DO's may specify the same statement as their last statement 


m. 


Any number of DO statements may be nested within the range of 


another DO statement. 


There are no restrictions on transfer out of or into the range of 
a DO loop. if a tvaneres is “made. into the range of a DO loop, then 
the programmer is responsible for the appropriate assignment of a 


value to the control variable i. 


When several DO statements share the same last statement m, the 
control variable i of the outermost DO statements is not reassigned 
and tested until each of the inner DO statements in its range is 
satisfied, starting with the innermost one. When the outermost 
DO statement is satisfied, a normal exit is made and control is 
transferred to the next executable statement following the range of 


the just-satisfied DO loop. 


Examples: 


10... 


DO 5 INDEX=5,10 
DO 5 J=1,10 


CONTINUE STATEMENT. 

The CONTINUE statement is considered a dummy statement because it 
causes no action in the execution of a program. It is frequently 
used as the terminal statement of a DO loop to provide a transfer 


point for an IF or GO TO statement. 


The general form is: 


CONTINUE 


a= 7 


Example: 


DO 30 J=2,N 
B(J)=NM(J-1) + INC 
IF (N(J).LT. MAX) GO TO 30 
K=J-1 
GO TO 4O 

30 CONTINUE 

HO... 


PAUSE STATEMENT. 
The PAUSE statement is used to interrupt execution of a program 


when action is required of the computer operator. 


The general form is: 


PAUSE n 


where n is an integer constant up 
to six digits long or is blank. 


If the n is present, it is displayed to the operator at the time of 
interruption. Execution is resumed with the first executable state- 
ment immediately following the PAUSE statement after an OK message 
has been keyed in at the SPO (refer to B 5500 Operation Manual). 


NOTE 


SPO stands for SuPervisOry printer, 
and specifies the console typewriter. 


Examples: 
PAUSE 


PAUSE 30 


STOP OR CALL EXIT STATEMENT. 


The STOP statement causes immediate termination of the program. 


The general form is: 


where n is an integer constant up 
to six digits long or is blank. 


The CALL EXIT statement is equivalent to STOP. 


CALL EXIT 


The general form is: 


Examples: 


STOP 

STOP 4 

CALL EXIT 
RETURN STATEMENT. 


Execution of the RETURN statement causes control to be transferred 


from a subprogram to the calling program. 


The general form is: 


where n is an arithmetic 
expression or is blank. 


Every subprogram must contain at least one RETURN statement, but 


more than one may appear in a subprogram, 


Tf n is not blank, control returns to the point of reference and is 
used to select one of the formal parameters in the subroutine re- 
presented by an asterisk (nonstandard return). Control then returns 
to the statement specified by a corresponding actual parameter in 


the calling program (see nonstandard returns, section 8). 


Tf n is blank, then control returns to the point of reference in 


the calling program unit. 


CALL STATEMENT. 


A subroutine is referenced by a CALL statement. 


The general form is: 


CALL N 
CALL N(a,:a,s++- sa) 


where N is the name of the subroutine and 
a 9An rer 9A are the actual parameters. 


1 
The actual parameters which constitute the parameter list must 
agree in order, number, and type with the corresponding formal 


parameters in the program unit defining the subroutine subprogram. 


if a formal parameter is real, then an integer actual parameter 


may be used. 


For purposes of type agreement, a Hollerith constant is considered 
of type INTEGER. 


An actual parameter in a subroutine reference may be one of the 


following: 


Ae A Hollerith constant. 


b. A variable name, 


c. A subscripted variable. 

d. An array name. 

e. An expression. 

f. The name of a subprogram. 

Ge $label (see nonstandard returns, section 8) 


Execution of a subroutine reference results in an association of 
actual parameters with all appearances of formal parameters in 
executable statements in the subroutine body, and in an association 
of actual parameters with variable dimensions in the subroutine, 


if any exist. 


Following the above associations, control is transferred to the 


first executable statement in the subroutine body. 


If an actual parameter is a subscripted variable with an arith- 
metic expression as a subscript, then, effectively, the arithmetic 
expression is evaluated, and the resulting subscripted variable is 
associated with the corresponding formal parameter in the sub- 


routine. 


If a formal parameter of a subroutine is an array name, the corres- 
ponding actual parameter must be an array name or an array element 


name. 


Examples: 


CALL, FALL (XY 52.) 


CALL KOST(A(I+J,2),B,"HEAD" ) 
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SECTION 6 
DECLARATIVE STATEMENTS 


GENERAL. 
The declarative statements are non-executable statements used to 
supply variable and array information and storage allocation in- 


formation. The six different declarative statements are: 


a. DIMENSION statement. 
b. COMMON statement. 

Cs EQUIVALENCE statement. 
d. Type statement. 

e. EXTERNAL statement. 

f. DATA statement. 


DIMENSION STATEMENT. 
The DIMENSION statement provides a means for specifying a collection 
of values with a single name, and at the same time specifying to the 


compiler the structure which is imposed on the collection. 
The general form is: 


DIMENSION a,(i,)+ a,(iz)> a,(is) 


where each a is an array name and each i repre- 
sents dimension information having the form of 
one or more subscript bounds separated by commas. 


Each bound is an integer constant. 


Variable names appearing with subscripts in the source program must 


have dimension information specified for them prior to their use. 


Dimension information may be given in a DIMENSION, COMMON, or Type 
statement; however, the dimension information for a specific array 


name must appear only once in the program unit. 


The magnitude of the values of the subscript bounds indicate the 
maximum values the subscripts may obtain in any reference to the 


array. The lower subscript bound is always one. 


An array may have variables for its subscript bounds in a FUNCTION 
or SUBROUTINE subprogram only. In this case, the array name and 
all variables used as subscript bounds must appear as formal para- 
meters in the subprogram. The actual values assumed by these 
variables are not determined until the subprogram is entered at 


execution time (see variable dimensions below). 
No array may exceed 32767 words. 


VARIABLE DIMENSIONS. 

An array can be placed in a subprogram with variables used as 
dimensions instead of constants. The advantage to this is that a 
given subprogram can perform calculations on such a generally 
stated array with specific dimensions provided from any calling 
program. The specific dimensions must be provided in a DIMENSION 
statement in the calling program. The actual values assumed by 
these variables are not determined until the subprogram is en- 


tered at execution time, 


The general form is: 


DIMENSION aj(i1); ag(i2g), a3(i3),..... 


where each a is an array name and each i is 
one or more subscript bounds separated by 
commas. Each bound is an integer variable. 


Variables can be used as dimensions of an array in a FUNCTION or 


SUBROUTINE subprogram only. 
The variables must appear in a DIMENSION statement of the subroutine. 


The array name and all variables used as dimensions must appear as 
formal parameters in the initial FUNCTION, SUBROUTINE, or ENTRY 


statement. 


Specific dimensions passed to the subprogram from the calling 


program must be identified in a DIMENSION statement of the calling 


> 


program, 


Specific variable size can be passed down through more than one 
level of a subprogram to a given subprogram using the variable 


as a dimension. 


Example: 
DIMENSION A(10,20) 
T=5 
J=7 
CALL SUB(A,I,J) 
END 


SUBROUTINE SUB(B,K,L) 
DIMENSION B(K,;L) 


COMMON STATEMENT. 

The COMMON statement provides a means for sharing core storage 
between the main program and its subprograms, or among the sub- 
programs. Information appearing in the storage area reserved by 
a COMMON statement is ordered in the sequence specified by the 
COMMON storage: labeled and unlabeled. 


The general form is: 


CONMON/x, /a,/x,/ap/' fe fen 


where each a in the COMMON statement is a list 
containing any combination of variable names, 
array names, or dimensioned array names, and 
each x is a block name or is empty. If xj is 
empty, the first two slashes are optional. 


Array names in a COMMON statement may have their dimensioning infor- 
mation appended to them. When arrays are dimensioned in a COMMON 
statement, they cannot be dimensioned in Type or DIMENSION state- 


ments. 
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COMMON area storage is assigned in the order of appearance of the 


elements within the COMMON block list. 


Block names may be duplicated within a program unit, causing the 
associated elements from each COMMON block list having the same 
name to be cumulatively assigned to one block with the same name. 
The effect is the same as declaring the block name once and listing 
all elements for that block in the COMMON block list. This is also 
true for multiple unlabeled COMMON block lists within a given 


program unit. 


Variables and array names may not be duplicated in COMMON state- 


ments. 


COMMON elements may be assigned initial values through use of the 
BLOCK DATA subprogram, 


The number and type of variables appearing in the COMMON block 
list and related EQUIVALENCE statements specify the length of 
the COMMON block. 


All subscript bounds for any array which appears in a COMMON state- 


ment must be integer constants. 


A COMMON block need not have the same size in each program unit in 
which it appears. However, if the size of a block is greater than 
1023 words in any program unit, it must also be greater than 1023 


words in the first program unit in which it appears. 
No COMMON block may exceed 32767 words. 


An element in COMMON which is double precision or complex must be 
an odd-numbered element (i.e.; first, third, fifth, etc.) counting 


from the left. 
Example: 


COMMON A,;B;C;D 


If both A. and C are double precision, then B and D may or may not be 
double precision or complex. However, if B and D are double pre- 


cision or complex, then A and C must be double precision or complex. 


Labeled common statements are specified by a block name, between 
slashes, preceding the list of elements assigned to that labeled 
COMMON block. Termination of the list of elements assigned toa 
block is by: 


aA. Termination of the COMMON statement. 
b. Introduction of a new block name. 


Ce Introduction of an unlabeled COMMON block. 


COMMON block names are unique identifiers. When a block name is 


present in a COMMON statement, it is embedded in slashes, e.g., /x/. 


Blocks of labeled COMMON statements in different program units 


which have the same block name will occupy the same storage area. 


Unlabeled COMMON statements are specified by a blank block name, 
e.g.; / /; followed by the unlabeled COMMON block list. The two 
slashes may be omitted if they appear at the beginning of a COMMON 
statement list. Termination of an unlabeled COMMON block is accom- 
plished by the introduction of a block name or termination of the 


COMMON statement. 


Examples: 


COMMON X,Y,Z 
COMMON /Y/Q;R;S 

COMMON / / K(5,5),L 

COMMON A,B,C/S/D(10,10) ,E 
COMMON /Y/Q;R;S/ /K(5;5)>5L 


EQUIVALENCE STATEMENT. 
By using the EQUIVALENCE statement, a storage location can be given 


more than one name. Thus, variables or array elements not listed 


in an EQUIVALENCE statement have unique storage assignments. 
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The general form is: 


EQUIVALENCE (Q1),+(Q2),(Q3),..++263(Qny) 


where each Q is a list of two or more 
Simple or subscripted variables or 
array names separated by commas. 


Subscripts must be positive integer constants and must correspond 
in number to the declared number of dimensions of the array, or be 
single subscripted by equating the element position in the array 
to a single subscript. For an explanation of the latter, see 
table 6-1. 


An array name without subscripts is considered as that identifier 


with a subscript of one. 


Any number of equivalence lists may appear in an EQUIVALENCE state- 


ment. 


Elements may be entered into COMMON blocks by setting them equiva- 
lent to an element appearing in a COMMON statement list. If the 

element is an array element, the whole array is brought into COMMON. 
This may extend the size of the COMMON block involved either at its 


beginning or at its end. 


When two elements share storage because of their appearance in one 
or more EQUIVALENCE statements, only one may appear in a COMMON 


statement. 


All subscript bounds for an array which appears in an EQUIVALENCE 


statement must be integer constants. 


An EQUIVALENCE statement must precede any reference to the elements 
EQUIVALENCEd. 
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Example: 


DIMENSION A(10), B(5;5) D(3;3;3) 
EQUIVALENCE (A(3), B(5,4), D(1;,1;1)), (A(1)>E) 


The above statements assign specific variable values to the same 
storage locations, as shown below, where each horizontal line is 


one memory location. 


Variable Value 


B(3,4) 
B(4,4) 
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B(1,5) 
B(2,5) 
ae 
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TYPE STATEMENT. 
Type statements are used to declare the type of variables, array 


names, and function names. 
The general form is: 


INTEGER type list 

REAL type list 

DOUBLE PRECISION type list 
COMPLEX type list 

LOGICAL type list 


where a type list is composed of variable 
names, array names, or statement function 
names separated by commas. In addition, 
arrays may be dimensioned by appending 
the dimension information to the array 
name in one or more subscript positions. 


When a subscripted variable is declared DOUBLE PRECISION or COMPLEX, 
the compiler will automatically assign two words of storage for 


each element of an array. 


Implicit type assignment is overridden by Type statements. 
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A variable name must be typed prior to its use in an executable 
statement or DATA statement. If the first letter of a variable 
name is IT, J, K,; L, M; or N, it is implicitly declared of type 

INTEGER and need not appear in a Type statement. If a variable 
name begins with any other letter, it is implicitly declared of 


type REAL and need not appear in a Type statement. 


Examples: 


INTEGER X,Y,Z,A(10,10) 
REAL H,I,J,K 
LOGICAL ATEST, BTEST 


EXTERNAL STATEMENT. 


When an actual parameter list of a function or subroutine reference 


contains a function or subroutine name, that name must appear in an 


EXTERNAL statement. 


The general form is: 


EXTERNAL Ny no Qeeeoee My 


where the n's are the names of the functions 
or subroutines appearing in the parameter 
list of a function or subroutine reference, 


The EXTERNAL statement appears in the calling program unit. 


Example: 


EXTERNAL SIN,COS 
CALL SUBT (SIN,COS) 


END 
SUBROUTINE SUBT (A,B) 
TANX=A (X)/B(X) 


RETURN 
END 


DATA STATEMENT. 


The DATA statement permits variables and arrays to be initialized 


to predetermined values. 
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The general form is: 


DATA List,/d,sdj:dg.-.-d,/; List,/d,sd,,...d)/s--. 


A list element may be an array name or a simple or 
subscripted variable name, where the subscripts must 
be integer constants. If more than one element of 
an array is to be initialized, an implied DO loop 
may be employed (see implied DO loop in section rae 
The d, represents a constant, or has the form i*c, 
where i is a repeat count and c is a constant. 


The constants may be any of the following: 


a. Integer, real, or double precision constant. 


b. Octal constants of the form Odd...d; i.e., the letter 


O followed by 1 to 16 octal digits (maximum allowable is 
$3777777777777777) « 


c. Logical constants. The quantities may be expressed as 


» TRUE. 9 tFALSE. 9 T; or F,. 


d. Hollerith constants. 


A one-to-one correspondence must exist between the list elements 


and the constants. 


DATA statement variables retain their values from one call to the 


next, and they are initialized only once by the DATA statement. 


Tf a Hollerith constant is used, it must be considered a single 


value and must correspond to a single list element, even though 


it may actually occupy several computer words. If it occupies more 


than one word, the list element must be a subscripted variable, an 


array name, 


or an implied DO loop with enough array elements remain- 


ing in the array to contain the Hollerith constant (see Hollerith 


constant in section 2) 


Example: 


DIMENSION A(3) 
DATA A(1)/14HABCDEFGHIJKLMN/ 


Elements in a COMMON block may appear in a DATA statement only in 
a BLOCK DATA statement (see BLOCK DATA in section 8). 


Variables assigned quantities by a DATA statement may be assigned 


other values during execution. 


When an array name without subscripts appears in the list, the 


entire array is initialized. 


Subscripted variables appearing in a program must have their sub- 
script bounds specified in a DIMENSION, COMMON, or Type statement 
prior to the first appearance of the subscripted variable ina 


DATA statement. 


Example: 


INTEGER X,Y,Z,A(5,5) 

REAL H,1I,J,N(8) ,K 

LOGICAL ATEST ,BTEST 

DATA X,Y ,H/1,3,5.7/;1,35 ,ATEST/6.2,99.99,F/ 

DATA Z,A,K,BTEST,(N(I),I=1,8)/0,25*0,-99. ,. TRUE. ,8*77.77/ 


GENERAL. 


SECTION 7 
INPUT /OUTPUT 


The following areas of Input/Output (I/O) are covered in this 


section: 


Input statements. 

Output statements. 

T/O lists. 

Implied DO loop. 

Action labels. 

Auxiliary I/O statements. 
FORMAT statement. 
NAMELIST statement. 

Tape and Disk I/O. 


INPUT STATEMENTS. 


In explanations presented in this manual section, the symbols 


Uu, r, fy 


k, and 1 have the following meanings unless otherwise 


specified: 


u - file specifier or unit number. The file specifier is an 


arithmetic expression whose value identifies the file 
being used for input or output. The file specifier must 
conform to the restrictions of a subscript. Unless other- 
wise specified by a FILE card (see appendix B), it is as- 
sumed at object time that the file specifier designates a 


tape unit. 


random record number. It is an arithmetic expression 
whose value represents a particular record within a random 


disk file. 


format specifier. It may be the label of a FORMAT state- 


ment, an array identifier, or a NAMELIST identifier. 


1 - action label. It specifies a statement label to which a 
branch is made if a parity error or an End-of-File con- 
dition is encountered during execution of an input state- 


ment. 


k - input/output list. It may be a blank or it may contain 
one or more variables and/or implied DO loops; in any 


combination. 


Execution of any of the READ statements causes the next record to 
be read from the input file. The information is scanned and con- 
verted as specified by the format specifier f if the statement is 
a formatted READ statement. The values are assigned to the ele- 
ments specified by the list k. If the list is not specified, either 
a record is skipped or data is read into the locations in storage 


occupied by the FORMAT statement. 


FORMATTED INPUT STATEMENTS. 
Formatted input statements are always associated with a FORMAT 


statement, an array containing FORMAT specifications, or a NAMELIST. 


The general form is: 


1. READ f,k 


. READ(u,f) k 

. READ(u,f,1) k 
READ(u=r,f) k 
READ(u=r,f,1) k 


In all five forms, the input list may be empty (i.e.; blank). 


When the first form is used, the input will be assumed to be from 


a card or tape file labeled READER. 


When the second or third form is used, input will be assumed to be 
from a tape file labeled TAPEn, where n is the value of u in the 
input statement, unless otherwise specified by a FILE card (see 


appendix B). 


When the fourth or fifth form is used, then input should be from 


a random disk file. In this instance, a FILE card must be used. 


In using the fourth or fifth form, the random number r, when 


evaluated, must have a non-negative integer value (see random disk 


I/O, page 7-36). 


Examples: 


READ 75 
READ(8,BID),((1,J,A(I,J),J3=6,9),1=1,5) 
READ(UNIT ,75)X,Z,A 

READ(14,LISTA ) 

READ (6=5*X-3,25,END=101,ERR=77) ARRAY 


For further information, see I/O lists, implied DO loop, action 
labels, FORMAT statement, NAMELIST statement, and tape and disk 
r/o in this section; FILE cards in appendix B. 


UNFORMATTED INPUT STATEMENTS. 
Unformatted input statements do not have a format specifier assoc- 
iated with them. Input must be from a tape or disk file which has 


been created with an unformatted output statement. 


The general form is: 


In all four forms, the input list k may be empty (i.e., blank). 


If the list k is not specified, than a record is skipped. 


The file used for input must have been previously created with a 


similar unformatted output statement. 


When either of the first two forms is used, input must be froma 


tape or serial disk file. 


When either of the last two forms is used, input must be froma 


random disk file (see random disk I/O, page 7-34). 


Examples: 


READ(9) 1,A,J,B,D 
READ(2*U,ERR=37) SAM 
READ (UNIT=10 ,END=99) FEAT ,HAMER 


For further information, see I/O lists, implied DO loop, action 


labels, tape and disk 1/0 in this section; FILE cards in appendix B. 


OUTPUT STATEMENTS. 
In explanations following, the symbols u,; r; f, and k have the 


same meanings as outlined under input statements. 


Execution of any of the output statements causes the next record in 
the output file to be created. The information is converted and 
positioned on output as specified by the format specifier f if the 
statement is a formatted output statement. If the list is not 
specified, either a record is skipped or data contained in the 


locations in storage occupied by the FORMAT statement is outputted. 


FORMATTED OUTPUT STATEMENTS. 
Formatted output statements are always associated with a FORMAT 


statement, an array containing FORMAT specifications, or a NAMELIST. 


The general form is: 


In all four forms, the output list k may be empty (i.e.,; blank). 


If the first form is used, output will be to a line printer file 


labeled PRINT. 


If the second form is used, output will be to a card punch file 


labeled PUNCH. 


When the third form is used, output will be to a tape which will be 
labeled TAPEn, where n is the value of u in the output statement, 


unless otherwise specified by a FILE card. 


When the fourth form is used, output should be to a random disk 


file. In this instance, a FILE card must be used. 


In using the fourth form, the random record number r, when evalu- 


ated, must have a non-negative integer value (see random disk T/O, 


page 7-36). 


Examples: 


PRINT 95,V(J),K(4) ,ZEDD 
PUNCH 55 

WRITE(NO,A) ROW 
WRITE(3=200-R,68) MATRIX 


For further information, see I/O lists, implied DO loop, FORMAT 
statement, tape and disk I/O, and random disk I/O in section 7; 


FILE cards in appendix B. 


UNFORMATTED OUTPUT STATEMENTS. 
Unformatted output statements do not have a format specifier as- 


sociated with them. Output must be to a tape or disk file. 


The general form is: 


1. WRITE(u) k 


ancora 


In both forms, the output list k may be empty Ci wes blank). 


When the first form is used, output must be to a tape or serial 


disk file. 


When the second form is used, then output must be to a random disk 


file (see random disk I/0, page 7-36). 


Examples: 


WRITE(OUT) (X(K) ,K=I,J) ,XX 
WRITE(11=REC) BOOL 


For further information, see I/O lists, implied DO loop, tape and 


disk I/O, and random disk I/O in section 7; FILE cards in appendix B. 


I/O Lists. 


An input list k in an input statement specifies the variables to 
which values are assigned on input. An output list k specifies the 
variables whose values are transmitted on output. The input and 


output lists are of the same form. 


The general form is: 


where ky oKooe+- sk, are variables, array names, 

or implied DO loops, or any combination thereof. 
An element k, of an I/O list may be a simple variable, a subscripted 
variable, an array name without subscripts, or an implied DO loop. 


An I/O list k may consist of any combination of these elements. 


An array name without subscripts in an I/O list is equivalent to 
inputting or outputting the entire array in the same order in which 
the elements are stored in memory, i.e., column-wise: with the 


left-most subscripts varying most rapidly. 


Examples: 


L,J,A,KP,B(T) 
(A (INDEX) ,LP ,INDEX=1,20) ,ZIP,ZAP 


In addition, see implied DO loop and FORMAT statement in section 7. 


IMPLIED DO LOOP. 
An implied DO loop is used as an element in an T/oO list to specify 


a repeated cycle of list elements. 
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The general form is: 


ae ((L,isn, ne, m5) sd=my 2M. sm. ) 


where L is a list of I/O elements 
which may contain an implied DO 
loop, and i»nysNoon3 and their 
counterparts J»Mz.Mp»m94 are as 
defined for the DO statement. 


Example: 
PRINT 35,((I,B(I,J) ,I=1,3) ,J=657) 


The output for the above statement would take the following form: 


i: ak 
2 B(2,6) 
3 Ee 
1 B(1,7) 
2 See 
3 B(3;7) 


where the subscripted B's represent the values of those elements. 


For further information, see DO statement, section 5; 1/0 list, 


section 7. 


ACTION LABELS. 

The formatted and unformatted input statements can be extended to 
programmatically recover from either End-of-File conditions or non- 
recoverable parity conditions, or both, through use of action 


labels. 


The general form is: 


2 
4K, END=n »ERR=n, 


where ny and no are 
statement labels. 


When an attempt is made to read a record which has a parity error 
from which the operating system cannot recover, control will be 


transferred to the statement labeled ny: 


When an attempt is made to read an End-of-File, control will be 


transferred to the statement labeled Ny» 


The program will be terminated immediately by the operating system 
if either of the above conditions occurs and the associated label 


is not specified in the input statement being executed. 


An End-of-File condition can occur under the following circum- 


stances: 


a. Attempting to read a card with an invalid character in 


column one. 
b. Attempting to read an End-of-File record on tape. 


c. Attempting to read a record from an area of disk which 


has not been written. 


d. Attempting to read a record beyond the last record 


previously written on disk. 


Examples: 


READ (3,END=99 ) 
READ(6=R,35,ERR=70) A 
READ (11,85 ,END=77 ,ERR=78) J,S,V 


For further information, see input statements and tape and disk 


I/O, section 7. 


AUXILTARY I/O STATEMENTS. 


There are six types of auxiliary I/O statements: 


ae REWIND statement. 
b. BACKSPACE statement. 
Cx ENDFILE statement. 


d. CLOSE statement. 
e. LOCK statement. 
b eae PURGE statement. 


REWIND STATEMENT. 
The REWIND statement causes the pointer for the specified tape or 
disk file to be reset to the beginning of the file. 


REWIND u 


Execution of the REWIND statement causes the file u to be positioned 


The general form is: 


to its initial point. 


If the last reference to the file u was a WRITE statement, then an 
End-of-File record is written prior to positioning the file to its 


initial point. 
The REWIND statement is undefined for other than tape or disk files. 


Examples: 


REWIND 5 


REWIND UNIT 


BACKSPACE STATEMENT. 
If the pointer in file u is positioned at record n; then execution 
of the BACKSPACE statement will cause the file pointer to point 


at record (n-1). 
The general form is: 


BACKSPACE u 


If file u is positioned at its initial point, then execution of 


this statement has no effect. 


Examples: 


BACKSPACE 8 
BACKSPACE N 


ENDFILE STATEMENT. 
The ENDFILE statement causes an End-of-File record to be written on 


the specified file and the file to be closed. 


The general form is: 


ENDFILE u 


The ENDFILE statement is undefined for anything other than a tape 
file. 


When an ENDFILE statement follows a WRITE statement on the same 
file u, then an End-of-File record is written and the tape is 
positioned such that the next record written will follow the End- 


of-File record. 


When an ENDFILE statement follows a READ statement on the same 
file u, then the tape is positioned to the beginning of the next 


file on the tape. 


When an ENDFILE statement follows a BACKSPACE statement on the same 
file u, then the tape is positioned to the beginning of the file u. 


When an ENDFILE statement follows REWIND or another ENDFILE state- 
ment on the same file u, then the ENDFILE statement is ignored. 


Examples: 


ENDFILE TF1 
ENDFILE 7 


CLOSE STATEMENT. 


The CLOSE statement causes the referenced file to be closed. 


The general form is: 


CLOSE u 


On a card file, a card containing an ending label is punched, and 


the card punch is released to the system. 


On a line printer file, the printer is skipped to channel 1; an 
ending label is printed, the printer is again skipped to channel 


1, and the printer is released to the system. 


On an unlabeled tape output file, a tape mark and ending label are 
written after the last block on tape, and the tape is released to 


the system. 


On a labeled tape output file, a tape mark and ending label are 
written after the last block on tape, and the tape is released to 


the system. 


Examples: 
CLOSE 19 


CLOSE N 


LOCK STATEMENT. 


The LOCK statement causes the referenced file to be closed. 


The general form is: 


LOCK u 


If the file is tape, then it is rewound and a system message is 


written to notify the operator to remove the reel and save it. 


Tf the file is not a disk file, then the unit is made inaccessible 
to the system until the operator resets it manually. 
Examples: 


LOCK NUT 


LOCK 7 
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PURGE STATEMENT. 
The PURGE statement causes the referenced file to be closed, 


purged, and released to the system. 


PURGE u 


The general form is: 


Examples: 
PURGE TAPE 


PURGE 8 


FORMAT STATEMENT. 
The FORMAT statement specifies what type of conversion is to be 
performed on data from external representation to internal machine 


representation or vice-versa. 
The general form is: 


n FORMAT (f, »f,5-+-sf)) 


where n is a statement label and 
Piofos--- of, are format specifi- 
cations. 


The FORMAT statement is non-executable. 


The FORMAT statement is always associated with one or more formatted 


input and/or output statements. 


The commas separating the format specifications may be replaced 
with one or more slashes. However; slashes in a FORMAT statement 


are used for record control. 


Each FORMAT specification must agree in type with the corresponding 


variable in the list of the associated I/O statement. 


When inputting data under a numeric format specification (Ly By By 
D, G; 0), leading blanks are not significant and other blanks are 


interpreted as zeros. 
Plus signs are optional on input and may be omitted. 


When inputting data under a real format specification (F, E; G; D); 
a decimal point appearing in the input field overrides the decimal 


point placement specified. 


Any blanks read in under a numeric format specification (I; F, E; 
D, G) which are outputted with no action being performed on them 
between inputting and outputting. will appear in the output field 


as negative zeros. 


In the following FORMAT discussions, the symbols w, d, b, and s 


will have these meanings: 


w - total input or output field width, a positive unsigned 


integer. 
d - number of decimal places; a non-negative unsigned integer. 
b - blank. 
s -~ a string of any valid FORTRAN characters. 


INTEGER CONVERSION ON INPUT USING Iw. 
The integer format specification Iw on input causes the value of 
the integer datum in the input field to be assigned to the corres- 


ponding integer variable in the input list. 
The general form is: 


The integer datum must be in the form of an integer constant right- 


justified in the input field. 


Examples: 


Input Field specification Internal Value 
567 T3 +567 
bb-329 16 = 329 
-bbbb27 T7 -27 
27 bbb L5 +2'7000 


INTEGER CONVERSION ON OUTPUT USING Iw. 
The integer format specification Iw on output causes the value of 
the corresponding integer variable in the output list to be written 


on the specified output file. 


The general form is: 


The integer is placed right-justified in the output field over a 
field of blanks. 


The plus sign is omitted for positive numbers. 


If the size of the integer exceeds the specified field width w, 
the output field will be filled with asterisks. 


Examples: 
Internal Value Specification Output Field 
+23 T4 bb23 
79 T4 b-79 
+67486 T5 67486 
-67486 T5 HX HKK 
+978 Ti * 


REAL CONVERSION ON INPUT USING Fw.d. 
The real format specification Fw.d on input causes the value of 
the real datum in the input field to be assigned to the corres- 


ponding real variable in the input list. 
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The general form is: 


Fw.d 


If there is no decimal point in the input field, then a decimal 


point is inserted d places from the right side of the input field. 


The field width w must be greater than or equal to the specified 
number of decimal places d. An input datum optionally may have 


an exponent (see real conversion on input using Ew.d). 


Examples: 
Input Field Specification TInternal Value 

36725931 F8.4 +3672.5931 
3.672593 F8.4 +3.672593 

- 367259. F8.4 -367259 
=3672. 62 F8.4 , - 367200 
367259E2 F8.4 +3672.59 
3.672E-1 F8.4 +.3672 
367259 F6.6 +0. 367259 


REAL CONVERSION ON OUTPUT USING Fw.d. 
The real format specification Fw.d on output causes the value of 
the corresponding real variable in the output list to be written 


on the specified output file. 


The general form is: 


Fw.d 


The real number is placed right-justified and rounded to d decimal 


places in the output field over a field of blanks. 


The plus sign is omitted for positive numbers. 


If the size of the number exceeds the specified field width w, 
then the output field will be filled with asterisks. A safe rule 


to use is: 


(w - dad) > 3 
Examples: 

Internal Value Specification Output Field 
+36.7929 F7.3 b36.793 
+36.7934 F9.3 bbb36.793 
~0.0316 F6.3 -0.032 
0.0 F6.4 0.0000 
0.0 F6.2 bbO.00 
4+579.645 F4.2 KKEEK 
+579.645 F6.2 579.65 
~-579.645 F6.2 KKEKKK 


REAL CONVERSTON ON INPUT USING Ew.d. 
The real format specification Ew.d on input causes the value of 
the real datum in the input field to be assigned to the corres- 


ponding real variable in the input list. 
The general form is: 


Ew.d 


If there is no decimal point in the input field, then a decimal 
point is inserted d places from either the right side of the input 


field or from the E denoting the exponent, if there is one. 


The field width w must be greater than or equal to the specified 


number of decimal places d. 


An input datum may or may not have an exponent. 


Examples: 


Input Field Specification Internal Value 
bbbbbb25046 E11.4 +2.5046 
bbbbb25. 046 E11.4 +25.046 
-bb25046E-3 E11.4 -0.0025046 
bb250.46E-3 E11.4 +0.25046 


REAL CONVERSION ON OUTPUT USING Ew.d. 
The real format specification Ew.d on output causes the value of 
the corresponding real variable in the output list to be written 


on the specified output file. 
The general form is: 
Ew .d 


The real number is placed right-justified and rounded to a d-digit 
mantissa, together with a four-place exponent field, in the output 
field over a field of blanks. Note that with the Ew.d format 
specification, d takes on a slightly different interpretation 
since no significant digits are written to the left of the decimal 
point in the output field. The plus sign is omitted for positive 
numbers. If the following rule is violated, the output field will 
be filled with asterisks: 


(w - d) > 6 


Tf a scale factor n is used, then it will control the decimal 
normalization between the number part and the exponent part as 


follows: 


a. If n < 0, then |n| zeros will be placed immediately to 
the right of the decimal point with (a-|n| ) significant 


digits following the zeros. 


b. If n > 0; then n significant digits will be placed to the 
left of the decimal point and (d-n+1) significant digits 
will be placed to the right of the decimal point. 


Examples: 


Internal Value Specification Output Field 
+36.7929 E12.5 bb. 36793Eb02 
-36.7929 Bld.5 -.36793Eb02 
-36.7924 E10.5 HXKKKKKKKK 
+36.7929 -2PE12.5 bb. 00368EbO4 
+36.7929 / +2PE12.5 36.79290Eb00 


DOUBLE PRECISION CONVERSION ON INPUT USING Dw.d. 

The double precision format specification Dw.d on input causes 
the value of the real datum in the output field to be assigned 
to the corresponding variable of type DOUBLE PRECISION in the 

input list. 


The general form is: 


Dw.d 


Aside from the fact that a double precision value is stored in two 
words, and that the exponent in the input field is preceded by a D 
rather than an E, the double precision format specification Dw.d 


behaves in the same manner as Ew.d. 


DOUBLE PRECISION CONVERSION ON OUTPUT USING Dw.d. 
The double precision format specification Dw.d on output causes the 
value of the corresponding double precision variable in the output 


list to be written on the specified output file. 


The general form is: 


Dw.d 


The double precision format specification Dw.d is identical to Ew.d; 


with the following exceptions: 


Ae The value associated with it is stored in two machine 


words. 


b. The variable name associated with the value must be of 


type DOUBLE PRECISION. 


c. The exponent part of the output contains a D rather than 


an E. 


REAL CONVERSION ON INPUT USING Gw.d. 


The real format specification Gw.d on input is identical to Fw.d. 
The general form is: 


Gw.d 


REAL CONVERSION ON OUTPUT USING Gw.d. 
The real format specification Gw.d on output causes the value of 
the corresponding real variable in the output list to be written 


on the specified output file. 
The general form is: 


Gw.d 


The representation in the output field is a fraction of the magni- 


tude of the real number being outputted. 


Tf N is the magnitude of the number being outputted, then table 
7-1 shows how the number will appear in the output field. 


Tf a scale factor is used, then it will have no effect on output 
conversion unless the magnitude of the number being written is 


outside the range which permits effective use of F conversion. 


Examples: 

Internal Value specification Output Field 
+10. G12.5 bb10.000 
+1000. G1i2.5 bb1000.0 
+1LOOOOO., G12.5 bb. LOOOOEbO6 
+LOOOOOO. G12.5 bb. LOOOOEbDO7T 
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Table 7-1 


Datum Conversion 


Magnitude of Datum Equivalent Conversion Effected 


O.1<N<1 F(w-4). ad, 4X 


1<N<10 F(w-4). (d-1), 4x 


F(w-4). 1, 4x 
E (wel). 0% UX 


Otherwise Ew.d 


OCTAL CONVERSION ON INPUT USING Ow. 
The octal format specification Ow on input causes the value of the 


octal datum in the input field to be assigned to the corresponding 


variable in the input list. 


The general form is: 


If the datum is less than 16 octal digits long, then it is right- 
justified and stored in a machine word. The maximum octal cone 


stant which can be read is 3777777777777777. 


Examples: 
Input Field Specification Internal Value 
16 G2 000000000000016 
L777777777777777 G16 L77777777777777 


OCTAL CONVERSION ON OUTPUT USING Ow. 
The octal format specification Ow on output causes the octal value 
of the corresponding variable in the output list to be written 


on the specified output file. 
The general form is: 


The octal value is placed right-justified in the output field over 
a field of blanks. 


Examples: 

Internal Value Specification Output Field 
0000376754320017 D3 OL7 
0000376754320017 B10 6754320017 
0000376754320017 G16 0000376754320017 


LOGICAL CONVERSION ON INPUT USING Lw. 
The logical format specification Lw on input causes the value of 
the logical datum in the input field to be assigned to the corres- 


ponding variable of type LOGICAL in the input list. 


The general form is: 


The input field width w must be greater than or equal to one. 
There may be leading blanks. The first character encountered in 
the field exclusive of leading blanks must be either T or F, for 
true or false, respectively. Any characters following the T or F 


will be ignored. 


Examples: 


Input Field Specification Internal Value 
T Lit TRUE 
bbF 3 FALSE 
bbbTRU L6 TRUE 


LOGICAL CONVERSION ON OUTPUT USING Lw. 
The logical format specification Lw on output causes the logical 
value of the corresponding variable of type LOGICAL in the output 


list to be written on the specified output file. 


The general form is: 


The logical value is placed right-justified in the output field 


over a field of blanks as a T or F, for true or false, respectively. 


Examples: 
Internal Value Specification Output Field 
FALSE eae F 
FALSE U3 bbF 
TRUE LZ bT 


ALPHANUMERIC CONVERSION ON INPUT USING Aw. 
The alphanumeric format specification Aw on input causes the charac- 
ter string of width w in the input field to be assigned to the 


corresponding variable in the input list. 


The general form is: 


The variable may be real or integer. The field width w should 


never exceed six. If it does, then the right-most six characters 
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in the string are stored and the rest are ignored. If w is less 
than six, then the string is stored left-justified with (6-w) 
trailing blanks. 


Examples: 
Input Field Specification Internal Value 
ABCDEFGHIJK A3 ABCbbb 
ABCDEFGHIJK A6 ABCDEF 
ABCDEFGHIJK A111 FGHIJK 


ALPHANUMERIC CONVERSION ON OUTPUT USING Aw. 
The alphanumeric format specification Aw on output causes the char- 
acter string assigned to the corresponding variable in the output 


list to be written on the specified output file. 
The general form is: 


The string is placed right-justified in the output field over a 
field of blanks. 


Examples: 
Internal Value Specification Output Field 
ra 
ABCbbb A3 ABC 
ABCbbb A5 ABCbb 
ABCbbb AQ bbbABCbbb 


INPUTTING A CHARACTER STRING USING wHs. 
The Hollerith field specification wHs on input causes the character 
string of width w in the input field to replace the character string 


s of the Hollerith field specification in a FORMAT statement. 
The general form is: 


wHs 


The Hollerith field specification on input may be used to read in 
page headings which are to be printed on output, but which may 


vary in content from one run to another. 


Example: 
READ 15 
15 FORMAT (2X ,9HDUMMYbbbb ) 
PRINT 15 
1. 
Input: L 2 5G: 7--S 9:0 71 (card column) 


Xx YbBAbSAMPLE 


Output: bbAbBSAMPLE 


Note that in the printed output, although 2X has been specified, 
only one blank is printed since the first blank is a carriage 


control character (see carriage control, page 7-27). 


OUTPUTTING A CHARACTER STRING USING wHs. 
The Hollerith field specification wHs on output causes the charac- 
ter string s of width w of the Hollerith field in a FORMAT state- 


ment to be written on the specified output file. 


The general form is: 


wHs 
The string s remains unchanged. 
Example: 
PUNCH 
95 FORMAT (12HbBURROUGHSbb ) 
111 
Output: 123456789012 (card column) 


bBURROUGHS bb 


INPUTTING A CHARACTER STRING USING "s". 
The literal string specification "s" on input is identical in 


operation to the Hollerith field specification wHs. 


The general form is: 


Io tt 


Example: 
READ 15 
15 FORMAT (2X,"DUMMYbbbb " ) 
PRINT 15 
Ll 
Input : 123456789 01 (card column) 


Xx YbBAbBS AMPLE 


Output: bbobAbBSAMPLE 


OUTPUTTING A CHARACTER STRING USING "s", 
The literal string specification "s" on output is identical in 


operation to the Hollerith field specification wHs. 


The format editing specification nX on input or on output will 


The general form is: 


SKIPPING CHARACTERS USING nx. 


cause n characters to be skipped in the respective input or output 


field. 


The general form is: 


EDITING USING Tn. 
The format editing specification Tn on input or output will cause 
data to be transferred from or to that position in the record 


specified by n. 


The general form is: 


SCALE FACTOR nP. 
A scale factor is defined for use with the F, E, G, and D format 


specifications, and is of the form: 


where the scale factor n is 
a signed integer constant. 


When FORMAT control is initiated, a scale factor of zero is auto- 
matically established and applies until a scale factor is encoun- 
tered in the FORMAT statement. Once a scale factor is encountered, 
it applies to all subsequently encountered F, E, G, and D conver- 
sions until another different scale factor or the end of the FORMAT 


statement is encountered. 


SCALE FACTOR ON INPUT. 

For F, E; G; and D format specifications on input, where the input 
datum does not have an exponent, the input datum is multiplied 

by 103 where n is the scale factor. If the input datum has an ex- 


ponent, then the scale factor has no effect. 


SCALE FACTOR ON OUTPUT. 

For F, E, and D format specifications on output, the mantissa of the 
output datum is multiplied by 10" and the exponent is reduced by 

n, where n is the scale factor. For the G format specification on 
output, the effect of the scale factor is suspended unless the 
magnitude of the datum being outputted is outside the range that 
permits effective use of F conversion. If the use of E conversion 
is required, then the scale factor has the same effect as when 


using the E format specification on output. 


For further information, see real conversion on page 7-16 using 


Ew.d. 


FORMAT SPECIFICATION IN AN ARRAY. 

Any of the formatted input/output statements may contain an array 
name in place of a FORMAT statement label. At the time the input/ 
output statement containing the array reference is executed, the 
array must contain the equivalent of a FORMAT statement, with the 
first non-blank character being a left parenthesis. Any charac- 


ters in the array following the final right parenthesis of the 


FORMAT statement in the array are ignored. 
Example: 


DIMENSION FORM (5) ,INFO(6) 
READ(5,75) FORM 

75 FORMAT (5A6) 
READ(20,FORM) Q,R,(INFO(I),I=1,6) 


Input: (F6.2,3X,E15.8,613)bbbbbbbbbbb 


CARRIAGE CONTROL. 


When a line printer is used for output, the first character of each 


line of print controls the spacing of the printer carriage. The 


control characters are: 


Character Action 
Blank One space before printing. 
Zero Double space before printing. 
1-9 Skip to channel 1-9 of the 


carriage control tape before 
printing. 


Plus sign No advance before printing. 


Examples: 


25 FORMAT(1HO,E12.6,A5) 


Causes the carriage to double space before printing. 


35 FORMAT (6H+TITLE) 


Provides no carriage advance before printing. 


45 FORMAT (3X, 615) 


Causes the carriage to single space before printing. 


55 FORMAT(1H1, "TITLE" ) 
Causes the printer to page eject and print TITLE. 


USE OF SLASH (/). 

A slash in a FORMAT statement is used to indicate the end of a 
record. On input, any remaining characters in the current record 
are ignored when a slash is encountered in the FORMAT statement. 
On output, the current record is terminated and any subsequent 
output is placed in the next record. Multiple slashes may be used 
to skip several records on input or create several blank records 


on output. 


REPEAT SPECIFICATIONS. 

Repetition of any format specification except nX, wHs, "s", or 
Tn is accomplished by preceding it with a positive integer con- 
stant called the repeat count. If the I/O list warrants it, the 
specified conversion will be interpreted repetitively up to the 
specified number of times. If a scale factor is included, then 


it must precede the repeat count. 


Repetition of a group of format specifications is accomplished by 
enclosing them within parentheses and preceding the left parenthe-~ 
sis with a positive integer constant called the group repeat count, 
which indicates the number of times to interpret the enclosed 
groupings. If the group repeat count is not given, then the group 
is repeated until the 1/0 list is exhausted. Groupings with paren- 


theses may be continued to any desired level. 


Example: 
85 FORMAT(3E16.6,5(F10.5,13,4A2) ) 


FORMAT AND I/O LIST INTERACTION. 
The execution of a formatted I/0 statement initiates format control. 


If there is an I/O list, then at least one format specification 


other than wHs, "s", nX, or Tn must exist in the FORMAT statement 


referenced. 


When a formatted input statement is executed, one record is read. 
No other records are read unless otherwise specified by the FORMAT 
statement. The I/O list associated with a FORMAT statement may not 


require more data of a record then it contains. 


When a formatted output statement is executed, writing of a new 
record occurs each time the FORMAT statement referenced so speci- 
fies. Terminating execution of a formatted output statement causes 


the current record to be written. 


Except for the effects of repeat counts, the FORMAT statement is 
interpreted from left to right. 


To each I, F, E, G, D, O, A, or L format specification there cor- 
responds one element in the 1/0 list. A list element of type 
COMPLEX is considered, for purposes of 1/0 conversion, as two list 
elements of type REAL. Thus, there must be two format specifica- 
tions (or a format specification preceded by a repeat count ) for 


every list element of type COMPLEX. 


There is no corresponding 1/0 list element for any wHs, "s", Tn, 
or nX format specification. Instead, the information is inputted 


or outputted directly to or from the FORMAT statement. 


If, under format control, the right-most right parenthesis of the, 
FORMAT statement is encountered and the I/O list is still not ex- 
hausted, then format control reverts to the last previously en- 
countered left parenthesis. If a group repeat count precedes this 


left parenthesis, then it also takes effect. 


If, during execution of a formatted I/O statement, the I/O list 

is exhausted but the right-most right parenthesis of the specified 
FORMAT statement has not been encountered, then execution of the 
1/O statement is complete. This action, of itself, has no effect 


on the scale factor. 


NAMELIST STATEMENT. 

The NAMELIST statement associates an I/O list with a unique iden- 
tifier. This identifier may not be used for any other purpose in 
the program unit in which it occurs. Only variable and array 
identifiers may be used as NAMELIST elements. These identifiers 


may not be formal parameters. 


The general form is: 


NAMELIST/N1/a,,a,,+++,a,/N2/b,,b b 


oe eee 

where N1 and N2 are NAMELIST iden- 

tifiers and a,,...,a and b,,...,b 
1 n 1 

are variable or array names. 


n 


n 


INPUT USING NAMELIST. 

Input using NAMELIST is accomplished by executing a formatted READ 
statement which has as its format specifier f a NAMELIST identi- 
fier which has previously been declared in the same program unit, 


No input list k is allowed in the READ statement. 


The input data file is free format except for the first two charac- 
ters of the first record. The first character is ignored and the 
second must be a dollar sign ($#). The NAMELIST identifier desig- 
nated in the associated READ statement must follow the dollar sign, 


with one or more blanks following the NAMELIST identifier. 


Following the NAMELIST identifier and blank(s) are placed, in 
free format, the variables assigned to the NAMELIST and the values 
which are being assigned to them. These may take any one of three 


forms, or any combination thereof: 


ae V-=N, where V is a simple or subscripted variable 
assigned to the NAMELIST identifier, and N is the 


value being assigned to the variable V. 


b. B(i) = M5 MM; y9e++eMs where Bis a previously DIMEN- 
SIONed array, i is an integer constant designating an 
element of the array B (i is less than or equal to n), 


and M,,ee+,;m, are the values being assigned to the 
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array elements B(i) through B(n) and are either con- 
stants or are of the form i*c, where i is a repeat 
count and c is a constant. Values must be assigned 


to all elements of the array from B(i) through B(n). 


ce AS M)>M,,+++,m_, where A is a previously DIMENSIONed 
array and M,oM,,+++,m, are the values being assigned to 
the entire array A, and are either constants or are of 
the form i*c, where i is a repeat count and c is a con- 


stant. 


If the first record is other than that specified above, then addi- 
tional records are read until the required record is found or the 


End-of-File is encountered. 


The READ statement will be terminated when a second dollar sign is 
encountered in the data file. Anything following the dollar sign 


is ignored. Trailing blanks are interpreted as zeros. 


Example: 
DIMENSION A(4,4) ,M(10) ,N(20) 
NAMELIST/NAMEA/A 5D ,K ,M,N »X/NAMEB/M »N ,X 
READ NAMEA 
First input card: L234567 8 6 oes (card column) 
béNAMEA D=7.1,N(4)=2.9,5.7,1.5,X=2.5, 
Second input card: tees Gt eres are (card column) 


A(2,3)=15.9,M=2,1,3%*6,4*74$ 


OUTPUT USING NAMELIST. 

Output using NAMELIST is accomplished by executing a formatted 
output statement which has as its format specifier f a NAMELIST 
identifier which has previously been declared in the same program 


unit. No output list k is allowed in the output statement. 


Output records produced by using NAMELIST may be read by a READ 
with NAMELIST statement, and are therefore of the same general for- 
mat as that specified for input to a READ with NAMELIST statement. 
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Example: 


DIMENSION A(4,4),M(10),N(20) 
NAMELIST/NAMEA/A,D,K,M,N,X/NAMEB/M,N,X 


WRITE(6,NAMEA ) 


WRITE(6,NAMEB ) 


TAPE AND DISK 1/0. 

Tape and disk file unformatted output statements, BLOCKING option 
and BUFFERing options are discussed below, followed by an expande 
discussion of disk I/O (serial disk I/O and random disk I/O). 


UNFORMATTED OUTPUT. 
When a tape or disk file is written using unformatted output stat 


ments, it will be formatted in the manner shown in figure 7-l. 


SS ee LOG TCAL “RECORD 


Intermediate 
Physical Records 
(each R words long) 


First 
Physical Record 
(R words long) 


Last Physical Record— 


A=0 Denotes first A=0 Denotes intermediate A=777778 Denotes last 
B=77777 Physical Record B=O Physical Records B=0 Physical Recor 
C=R C=R O<C<R 


(number of words used in 
final record) 


Figure 7-1. File Format Using Unformatted Output Statements 


NOTE 


Numbers with subscript 8 are octal. 


In figure 7-1, R is the number of words per record as declared 
with the RECORD option on the FILE card. A, B, and C are partial 


words comprising the first word of each physical record, and 
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A= [3215] 
B = [18:15] 
C = [ 33:15] 


Therefore, if the physical and logical record sizes are the same, 
i.e., the blocking factor is one, then A, B, and C will have the 


following values: 


A = 77777. 
B = 77777. 
CC -=2oR 


When an unformatted output statement is used, then the file written, 
whether tape or disk, will have the above format. For optimal use 
of disk, however, it should be kept in mind that the disk is allo- 


cated into 30-word segments. 


BLOCKING. 
The BLOCKING option on the FILE card provides the capability of 


packing more than one record into a physical block. 


There are two advantages in blocking files: 


ae Faster I/O speeds can be obtained since many records can 
be brought into or out of internal storage in a single 


access, thus giving a faster access time per record. 


b. More efficient packing of data can be obtained. For ex- 
ample, an 808character record written on disk unblocked 
would waste 160 characters. This is because the smallest 
addressable area on disk is the segment which contains 
240 characters. By specifying three records per block 
(BLOCKING = 3), 100% utilization of disk can be obtained. 
Another example is tape blocking. By writing longer 
blocks, the amount of tape space wasted by inter-record- 


gaps would be reduced. 


For most efficient utilization of disk, the blocking should be 
such that the block size should be 30 words (240 characters) or 


some integer multiple thereof. 
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The block size should not exceed 1023 words. 


The blocking of records during WRITE and unblocking during READ is 
handled automatically by the operating system. 


BUFFERING. 
The FILE card has an option whereby the number of buffers assigned 


to a file can be specified (two are assigned by default). 


The number of buffers that should be specified for a given file 


depends on the characteristics of the file. 


A file from which a record is accessed infrequently should have 


only one buffer. Specifying more wastes internal storage space. 


A file that is accessed frequently should have two buffers. While 
data is being processed into or from one buffer, T/O can be in 


progress on the other buffer. 


A file that is accessed N times between long processing loops should 
have N buffers. Since the operating system always tries to keep 

the buffers full for input and empty for output, the N buffers could 
be processed without having to wait for any actual T/O. Then, during 
the long processing loops, the operating system can do the required 


actual I/O operations. 


DISK I/O. 
The assignment of a file to disk requires the use of a FILE card 


(see appendix B). 


If the AREA option is specified, the first reference to the file 
will cause the MCP to set up a directory indicating the amount of 
disk specified. In making the actual allocation of disk, the MCP 
will subdivide the file into 20 areas, each area containing 1/20 
of the file. Actual allocation of disk space for each area occurs 


only when a WRITE statement references a record in that area. 
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If the FILE option card does not specify the AREA option, the first 


reference to the file expects the file to exist on disk. 


To create a permanent file on disk, it is necessary to specify the 
LOCK option and the SAVE option. In addition, the file should be 
left open when the program goes to End-of-Job (EOJ); i.e., no 
REWIND statement can be executed on the file. 


Each record on disk is addressed by its relative location in the 
file; the first record is record O (zero). The MCP, in order to 
compute an actual disk address from a record address, requires 

that each record be of fixed length. This record length is either 
17 words (by default ) or the record size specified in the FILE card. 
Attempting to write or read a logical record where the amount of 
data specified by the list exceeds the amount of data in the record 
will result in program termination. For the situation where a 
logical record is written which is smaller than the record size, the 
contents of that portion of the record left unfilled is undefined. 
Attempting to read this undefined data should be avoided; program 


termination can occur. 


Associated with each file on disk is an End-of-File pointer. Each 
WRITE operation updates this pointer so that its value is always 


that of the highest record written. 


SERIAL DISK I/O. Serial Disk I/O is selected by specifying the 
SERIAL option on the FILE card. 


The operating system keeps an internal record pointer to control 
serial disk I/O. This pointer is set to -1 initially. Each READ 
or WRITE statement counts the pointer up to 1, then uses it as the 


relative record address to read or write. 


The random access forms of the READ or WRITE I/O statement can be 
used for a file specified serial (see random disk I/0). When used, 
the internal record pointer is set equal to the address specified 


in the I/O statement rather than being counted by 1. Using the 
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random access forms of the I/O statement on files specified as 
serial, although allowed, is slower than when the file is specified 


as random. 


The results of mixing or alternating serial disk READ and WRITE 


statements without intervening REWINDs are not defined. 
REWIND sets the internal record pointer to -l. 


RANDOM DISK I/O. Random Disk I/O is selected by specifying RANDOM 
on the FILE card. Associated with random access is a special form 


of file identifier in the READ and WRITE I/O statements as follows: 


where r is the relative address 
of the record to be accessed. 


The rules for the form of r are the same as for an array subscript. 


The record specified by r will be the record accessed. 


The internal record pointer is always set from r in the I/O state- 
ments. If the serial forms of the I/O statements are used with a 
file specified random, the internal record pointer is not changed. 
This results in several consecutive serial I/O statements accessing 


the same record repeatedly. 
Mixing READ and WRITE statements is allowed in any sequence. 
REWIND sets the internal record pointer at zero. 


Examples: 


READ(1=I....) 


WRITE(6=(A+B-C)... 
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SECTION 8 
SUBPROGRAMS 


GENERAL. 
A subprogram is a program unit, a self-contained and independent 
routine, which may be referenced by the main program and by other 


subprograms. There are three types of subprograms. 


a. FUNCTION subprograms. 
b. SUBROUTINE subprograms. 
c. BLOCK DATA subprograms, 


FUNCTIONS. 

In mathematics, if the value of one quantity is dependent on the 
value or values of another quantity, then it is said to be a func- 
tion of the other quantity. The first quantity is called the 
function and the other quantities are called the arguments. For 


example, in 

arctan(x) 
arctan is the function and x is the argument. 
Functions may be divided into three categories: 


Ae Statement functions. 
b. Intrinsic functions. 


Cs External functions. 


STATEMENT FUNCTIONS. 
A statement function is defined within the program unit in which 
it is referenced. It is defined by a single statement similar in 


form to an arithmetic or logical assignment statement. 


The general form is: 


where f is the statement function name, 
X1]1»X990++9X, are the dummy arguments, 
and e is an expression. 


The rules for naming a function subprogram are the same as those 

for naming a variable (see section 2). The dummy arguments may 

be simple or subscripted variables. They represent values which 

are passed to the function subprogram and are used in the expression 
e in order to evaluate the function f. The dummy arguments are 
undefined outside of the statement function and may be redefined 
within the program unit. Together, f and e must conform to the 


rules for arithmetic or logical assignment statements. 


Aside from the dummy arguments, the expression e may contain: 


a. Variables used in the program unit. 

b. Intrinsic function references. 

c. References to previously defined statement functions. 
d. External function references. 


A statement function must be defined before it is referenced. 


A statement function is referenced in the same manner as a FUNCTION 


subprogram is referenced. 


The name of a statement function must not appear in an EXTERNAL 
statement, nor as a variable name or an array name in the same 


program unit. 


Example: 


DIMENSION A(10) 

LOGICAL STAFUN,Y ,Z 

STAFUN(N)=X .LT. oe 

READ 25,X,Y,(A(1I),I=1,10 
25 FORMAT(F8.2,L2,10F7.2) 

DO 50 J=1,10 

Z=Y .AND. STAFUN(J) 
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INTRINSIC FUNCTIONS. 
The intrinsic functions are those functions made available toa 


FORTRAN object program by the operating system. The names, types, 


and definitions of the intrinsic functions are predefined, so they 


need only be referenced in order to be used. 


An intrinsic function name may be redefined within a program unit. 
However, if it has been redefined, then that intrinsic function 
will no_longer be recognized by the compiler, but its identifier 


will be used as it has been redefined. 


An intrinsic function is referenced by using it as a primary in an 
arithmetic or logical expression. The actual parameters which 
constitute the parameter list must agree in type, number, and 
order with the specifications in table 8-1, and may be any expres- 
sion of the specified type. (For an explanation of actual para- 
meters, see CALL statement, section 6.) When a real parameter 


is specified, however, an integer parameter may be used. 


Execution of an intrinsic function reference results in the passing 
of the actual parameter values to the corresponding formal para- 
meters of the intrinsic function and an evaluation of the intrinsic. 
The resultant value is then assigned to the intrinsic function 
identifier and thereby passed back to the intrinsic function refer- 


ence. 


Examples: 


TBIG=MAXO(I,J,K,LEST) 
TANGE=SIN(X+Y)/COS(A-B) 
EXTERNAL FUNCTIONS. 


An external function is a program unit which has as its first state- 


ment a FUNCTION statement. 


The general form is: 


t FUNCTION f(a, ass aL) 


where: 


a. t is either INTEGER, REAL, DOUBLE 
PRECISION, LOGICAL, COMPLEX, or 
empty. 


b. f is the symbolic name of the 
function being defined. 


Co Azoe++ 2a, are formal parameters 
which may be either a variable 
name, an array name; a SUBROUTINE 
or FUNCTION name, or an asterisk (*) 
(see nonstandard returns). 


An external function is normally referenced by another program 
unit. However, B 5500 FORTRAN permits an external function to 


reference itself, i.e., recurse. 


The construction of external functions is subject to the following 


conditions: 


a. The function name must be used as a variable within the 
function subprogram to the left of the replacement operator 
(=) in an assignment statement at least once. Its value 
at the time of execution of any RETURN statement within 


the function subprogram is the value of the function. 


b. The name of the function must not appear in any non- 
executable statement in the function subprogram, except 


for the FUNCTION statement. 


c. The symbolic names of the formal parameters may not appear 
in an EQUIVALENCE, COMMON, or DATA statement in the func- 


tion subprogram,. 


d. The function subprogram may define or redefine one or more 
of its parameters to effectively return results in addi- 


tion to the value of the function. 


e. The function subprogram may contain any statements ex- 
cept SUBROUTINE, another FUNCTION statement, or BLOCK 
DATA. 


f. The function subprogram must contain at least one RETURN 


statement. 


ge. An END statement must be the last statement of the sub- 
program body. 


Example: 


FUNCTION EVAL(U,V) 
IF(U .LT. V) GO TO 1 
EVAL=V/U 
RETURN 

1 EVAL=U/V 
RETURN 
END 


REFERENCING EXTERNAL FUNCTIONS. 

An external function is referenced by using it as a primary in an 
arithmetic or logical expression. The actual parameters, which 
constitute the parameter list, must agree in order, number, and 
type with the corresponding formal parameters in the defining pro- 
gram unit. If a formal parameter is real, an integer actual para- 
meter may be used. An actual parameter in an external function 


reference must be one of the following: 


a. A Hollerith constant. 


b. A variable name. 

c. An array element name. 
qd. An array name. 

e. An expression. 


ts The name of a function or subroutine. 


g. $$ label. (See nonstandard returns. ) 


If an actual parameter is a function name (external or intrinsic) 
or a subroutine name, then the corresponding formal parameter 


must be used as a function name or a subroutine name, respectively. 
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If an actual parameter corresponds to a formal parameter that is 
defined or redefined in the referenced subprogram, the actual 
parameter must be a variable name, an array element name, or an 
array name. Execution of an external function reference, as de- 
scribed in the foregoing, results in an association of actual para- 
meter with all appearances of corresponding formal parameters in 
the executable statements of the subprogram, and in an association 
of actual parameters with variable dimensions, if present, in the 
subprogram. Following these associations, execution of the first 


executable statement of the subprogram body is undertaken. 


An actual parameter which is an array element name containing vari- 
ables in the subscript could in every case be replaced by the same 
parameter with a constant subscript containing the same values as 
would be derived by computing the variable subscript just before 


association of parameters takes place. 


If a formal parameter of an external function is an array name, 
the corresponding actual parameter must be an array name or array 


element name. 


Example: 
TOTAL=EVAL(P,X)+(P,X)+CPS(Y) 
SUBROUTINE. 


A subroutine is defined externally to the program unit that refer- 
ences it. <A subroutine defined by a FORTRAN statement headed by a 
SUBROUTINE statement is called a subroutine subprogram. 


DEFINING SUBROUTINE SUBPROGRAMS. 
The SUBROUTINE statement is one of the forms: 
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SUBROUTINE N 


SUBROUTINE N (aj ,a9>...ay) 


The letter N is the symbolic name of 
the subroutine to be defined. 


The a's are formal parameters which may be 
either a variable name, an array name, a 
function or subroutine name, or an asterisk (*). 


The construction of subroutine subprograms is subject to the 


following restrictions: 


a. The symbolic names of the formal parameters may not appear 
in an EQUIVALENCE, COMMON, or DATA statement in the sub- 


gee es 


b. The subroutine subprogram may define or redefine one or 
more of its parameters in order to effectively return 


results. 


ce. The subroutine subprogram may contain any statements ex- 
cept FUNCTION, another SUBROUTINE statement, or BLOCK 
DATA. 


d. The subroutine subprogram must contain at least one 


RETURN statement. 
e. An END must be physically the last statement. 


In B 5500 FORTRAN, a subroutine may call itself, tsi6'n% recurse. 


Example: 


SUBROUTINE FALL(T,V,S) 
G=32.172 

S=G*T**2/2 

V=G*T 

RETURN 

END 


NONSTANDARD RETURNS FROM SUBROUTINES AND FUNCTIONS. 

Tf a subroutine or function contains one or more nonstandard 
return statements (has the term RETURN n), the formal parameter 
list must contain one asterisk (*) for each return number. The 
actual parameter list of the referencing program unit must then 
have a dollar sign ($ ) followed by a label in the corresponding 


position. 


Example: 


Calling Program Called Program 


ar SUBROUTINE XYZ (U,V,*,;*) 


CALL XYZ (A,B,$10,$15) 


eae IF(EXP) 1,2,3 
bare 1 RETURN 
wes 2 RETURN 1 
oe 3 RETURN 2 
Oy oa END 
15 ees 
END 


In the above example, if the value of EXP is negative, control will 
be returned to the referencing program at the statement labeled 5; 
if the value of EXP is zero, control will be returned at label 10; 
and if the value of EXP is positive, control will be returned at 


label 15. 


MULTIPLE ENTRY POINTS INTO A SUBPROGRAM. 

For a normal entry into a subroutine subprogram, a CALL statement 
that refers to the subroutine name is used. A normal entry into 

a FUNCTION subprogram is made by a reference to the function name 


in an arithmetic expression. Entry is made at the first executable 


statement following the SUBROUTINE or FUNCTION statement. 
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A subprogram can also be entered by way of a CALL statement ora 
function reference that refers to the name in an ENTRY statement 
in the subprogram. The entry is made at the first executable state- 


ment following the ENTRY statement. 


ENTRY statements are non-executable. Therefore, they do not affect 
control sequencing during normal execution of a subprogram. The 
type, order, and number of parameters need not agree between the 
SUBROUTINE or FUNCTION statement and the ENTRY statement, nor do 
the ENTRY statements have to agree among themselves. However, each 
CALL or function reference must agree in type, order, and number 


with the SUBROUTINE, FUNCTION, or ENTRY statement that it refers to. 


The ENTRY statement in the called subprogram is one of the forms: 


ENTRY n 
ENTRY N(aj:a9;..-ay) 


N is the symbolic name of an entry point. 


b. The a's are formal parameters which may be 
either a variable name; an array name, a 
subroutine or function name, or an asterisk (*). 


Example: 


Calling Program Called Program 
ace SUBROUTINE SUB(U,V,W,X) 


5 CALL SUB(A,B,C,D) ats 


s e e 1 O ee 
10 CALL ENT1 ENTRY ENT1 
ee GO TO 10 
15 CALL ENT2(G,H) avast 
sat ENTRY ENT2(G,H) 
END ees 
END 


In the above example, execution of statement 5 causes entry into 

SUB, starting with the first executable statement of the subroutine. 
Execution of statements 10 and 15 also causes entry into the called 
program, starting with the first executable statement following the 


ENTRY ENT1 and ENTRY ENT2(G,H) statements respectively. 
The following are additional rules for entry points: 


a. An ENTRY name may appear in an EXTERNAL statement in the 
same manner as a FUNCTION or SUBROUTINE name. 


b. ENTRY statements may appear only in subprograms. 


C. Entry into a subprogram initializes all references in the 
entire called subprogram from items in the parameter list 


of the CALL or function reference. 


d. If an adjustable array name or any of its variable 
dimensions appear in a parameter list for a FUNCTION, 
SUBROUTINE, or ENTRY statement, that array name and all 
its variable dimensions must appear in that parameter 


list. 


e. In a FUNCTION subprogram, only the FUNCTION name may be 
used as the variable to carry a result back to the call- 


ing program. The ENTRY name may not be used for this 


purpose. 
f. An ENTRY name defined in a subroutine subprogram must be 
referenced ina CALL statement. Similarly, an entry 


defined in a function subprogram must be referenced as a 


function. 


BLOCK DATA. 
Further use of the DATA statement is in the BLOCK DATA subprogram. 
It is used to enter data into COMMON blocks; however, the follow- 


ing must be observed: 


Example: 


There may be no executable statements in a BLOCK DATA 
subprogram. The first statement of the subprogram must 


be BLOCK DATA. 


The subprogram may contain only Type, EQUIVALENCE, DATA, 
DIMENSION, and COMMON statements. 


All elements of a COMMON BLOCK must appear in the COMMON 
statement list even though some do not appear in the DATA 


statement list. 


More than one COMMON block may be initialized by a single 
BLOCK DATA subprogram. 


There may be as many BLOCK DATA subprograms as desired 
in a program, but any block identifier may occur in only 


one BLOCK DATA subprogram. 


BLOCK DATA 

COMMON /TEST/ K, L, S/ AATWO/ B, C 
DIMENSION C(10) 

DATA Thy: S/ 1G. 9457 %. CK A0*16.27 
END 
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APPENDIX A 
GLOSSARY 


ACTUAL PARAMETERS. Those parameters in the parameter list ofa 
subroutine call or function reference. In contrast to FORMAL 


PARAMETERS. 


ALPHANUMERIC. Contraction of alphabetic and numeric, signifying 


the alphabetic and numeric characters. 
ASSIGNMENT OPERATOR. In FORTRAN, the equal sign (=). 
BCL. An acronym for Burroughs Common Language. 


EXECUTABLE PROGRAM. A program that can be used as a self-contained 
computing procedure. Tt consists minimally of one main program. 


Tt may consist of one main program and any number of subprograms. 


EXECUTABLE STATEMENT. <A non-declarative statement which is ex- 
ecuted at object time. In contrast to NON-EXECUTABLE STATEMENT. 


EXPONENT. That part of a real (floating-point) number which deter- 


mines the decimal point placement in the mantissa. 


EXPRESSION. Any constant, variable, or function reference, or any 


combination of these separated by operators, commas, or parentheses. 


FIXED-POINT. An arithmetic notation in which the decimal point is 
not present and is assumed to be on the extreme right of a number. 


In contrast to FLOATING-POINT. 


FLOATING-POINT. An arithmetic notation in which the position of the 
decimal point does not remain fixed with respect to one end of the 


numerals. In contrast to FIXED-POINT. 


FORMAL PARAMETERS. Those parameters in the parameter list of a 
subroutine or function declaration. Tn contrast to ACTUAL PARA- 


METERS. 


MATN PROGRAM. A set of statements and comments not containing a 
FUNCTION, SUBROUTINE, or BLOCK DATA statement. 


MANTISSA. That part of a real (floating-point ) number which con- 


tains the significant digits. 


MCP. An acronym for the Master Control Program, the B 5500 execu- 


tive system. 


NON-EXECUTABLE STATEMENT. A declaration which, at compile time, 
provides the compiler with a description of data. It is not ex- 


ecuted at object time. In contrast to EXECUTABLE STATEMENT. 


PRIMARY. An arithmetic expression enclosed in parentheses, a 
constant, a variable reference, an array element reference, ora 


function reference. 
PROGRAM UNIT. Refers to either a main program or subprogram. 


PRT. An acronym for Program Reference Table. An area in memory 
for the storage of operands, references to arrays, references to 
segments of a program, and references to files. Permits programs 
to be independent of the actual memory locations occupied by data 


and parts of the program. 


REFERENCE. A term used with special meaning to indicate an identi- 


fication of: 


a. A datum, implying that the current value of the datum will 
be made available during the execution of the statement 


containing the reference. 


b. A procedure, implying that the actions specified by the 


procedure will be made available upon reference. 


SPO. An acronym for SuPervisOry Printer, the B 5500 console type- 


writer. 


SUBPROGRAM. A set of statements and comments headed by a FUNCTION, 
SUBROUTINE, or BLOCK DATA statement. 
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APPENDIX B 
FILE CARDS 


FILE cards are optional since all the parameters used in declaring 
a file have default values. The various I/O statements and their 
default descriptions when a FILE card is not used are listed in 


table B-l. 


Table B-l1 


File Default Descriptions 


READ f,k* READER 10 Word Buffer, Alpha or 
80 Characters } Reader 


READ(u,f) k FILEi 17 Word Buffer, Binary 
READ(u) k (where i is the | 132 Characters, 
READ(uer, f) value of u) (size of logical 

record is un- 

limited) 


FILE 17 Word Buffer 
(where iis the | 132 Characters, 


value of u) (size of logical 
record is un- 
limited) 


PRINT f,k* 17 Word Buffer, 
132 Characters 
Pod... SEE 
PRINT: £,k* PUNCH 10 Word Buffer, 
80 Characters 
NOTE 
In all cases, 
the multi-file 
name is empty. 


*PILE cards cannot be used for these I/O statements. 


FILE CARD FORMAT 


FILE cards are free format, with the exception of card columns 1-6: 


1234 5 6 (card column) 
F TLEbDbD 


where a blank is denoted by b. 


Columns 73 through 80 are used for a sequence number or identifica- 
tion only, and will be ignored by the compiler except when merging 


a card and tape file at compile time. 


Following the two blanks, the following information must be inserted 


in free fofmat: 


N = FID 


N 


MFID/FID 


where N is an unsigned integer constant representing the logical 
unit number. It is the value of u in READ(u,f)k and WRITE(u,f)k. 
MFTD is the multi-file identification, and FID is the file identifi- 
cation. If MFID is not included, then it is assumed to be seven 


Zeros. For further information, see B 5500 Operation Manual, 


No. 1024916. 


The following is a List of options which may be included on the 
FTLE card. They may be in free format, but they must come in the 


order in which they are given below: 


a. »UNIT = t 
where t is one of the following: 
PRINT 
PRINTER 
READER 
PUNCH 
DISK 
TAPE 


TAPE is the default option for UNIT. 
pu », UNLABELED 


LABELED is the default option if unlabeled is not specified 
(Lape on ty). 


C. 


»ALPHA 
BINARY is the default option if ALPHA is not specified 
(tape only). 


»OAVE =n 
where n is an unsigned integer whose value cannot exceed 
999, It is the save factor, in days (see B 5500 Operation 


Manual). The default save factor is zero. 


» LOCK 
When this option is used, the MCP will close and lock a 
disk file when the program creating it has gone to End- 


of-Job (see tape and disk I/O, section 7). 


»OERIAL 
» RANDOM 
This option specifies the access mode for disk files only. 


The default option is SERIAL. 


where n is an unsigned integer constant which denotes the 
amount of area on disk (in number of records) to reserve 


for this file (see tape and disk I/0, section 7). 


»BLOCKING =n 
where n is an unsigned integer which represents the number 
of logical records per physical block. The default option 


is unblocked files, i.e., a blocking factor of zero. 


»RECORD = n 
where n is an unsigned integer which represents the size 
(in words) of a logical record. The default option is 17 


(see table B-1). 


»BUFFER = n 

where n is an unsigned integer which represents the number 
of buffers. The default option is 2 (see tape and disk 
r/o; section Ds 


Tf the FILE option extends across more than one card, then the next 
card must be flagged as a FORTRAN continuation card with a character 


other than a blank or zero in card column 6. 


In the I/O statements READ(u,f)k and WRITE(u,f)k, if u is not an 
integer constant, then its value at run time must correspond to 
either a file number declared by default or to a logical unit number 


declared on a FILE card. 
If the option 
UNIT’ = 4 


is used to declare the file as a line printer, card punch, or card 
reader, then the remaining default descriptions used for this file 


are designated in table B-l. 


APPENDIX C 
DOLLAR SIGN CARDS 


A dollar sign card is optional and is used to indicate to the com- 


piler that certain options are to be used at compile time. 


format of a dollar sign card is: 


Card Column 


1 
2-72 
73-80 


Contents 


$ 


The 


Options in free field format. 


Card number or blank. 


The dollar sign card may be placed: 


Example: 


Immediately after the MCP control cards used for compila- 


tion and immediately before the first FORTRAN FILE card 


or FORTRAN source or patch card if no FILE cards are used 


(see section 1). 


Anywhere else in the source or patch deck with a proper 


sequence number in order to change options at some point 


in compilation, e.g., to list only a part of the compiled 


source program, 


A=B+C 

$CARD LIST 

X=SQRT (Y*¥*24+Z**2 ) 
PAR=TAN(X/A ) 
V=SIN(X+Y-Z) 
$CARD 


sequence 


Number 


00000100 


00009000 
00009100 
00009200 
00009300 
00012200 
00012300 


Only cards 00009200 through 00012200 will be listed on the file 


LINE. 


When dollar sign cards are grouped together, all will be ignored 


except the last one. Tf no dollar sign card is included with the 


source deck, then the CARD and LIST options are assumed. 


The various options available are as follows: 


TAPE or 


ae 


LIST 


OQ 
j 
hw 


CARD 


One of these, but not both, must be the first option on 


the dollar sign card immediately following the dollar sign. 


CARD indicates to the compiler that the source program 


input is entirely from the file labeled CARD. 


TAPE indicates to the compiler that the source program 
input is from the file labeled TAPE and that change or 
patch cards may be inputted from the file labeled CARD. 

Tf a change or patch card file is used, then it is merged 
into the source program trom the file labeled TAPE as a 
function of the sequence number in columns 73~-80, Ifa 
listing is obtained, then the source statements from the 
TAPE file will have a T following the sequence number, and 
the source statements being merged from the CARD file will 
have an R following the sequence number on the compiled 
source listing. The merging process uses the B 5500 alpha- 


meric collating sequence (see appendix G). 


If present, then a compiled source listing of the source 
program will be made on the file LINE, including any change 


or patch cards. 


Segment and address information will also be listed with 


the source program. 


NEW or NEW TAPE 


a. 


PRT 


DEBUGN 


ae 


If present, a new source tape file labeled FORSYM is 
created which includes all change or patch cards and 


FILE cards, but does not include dollar sign cards. 


If present, then a listing of the source program will be 
made on the file LINE, including any change or patch 
cards, and at the end of each program unit listing, a 
listing of PRT* and stack assignments for each local 


identifier within that program unit will be made. 


At the end of the entire program, PRT assignments for 


all global names will be listed. 


If PRT is specified, then LIST is assumed. 


If present, then the actual machine code emitted by the 
compiler is also listed on the file LINE together with 


octal values of constants and format of PRT entries. 


If DEBUGN is specified, then PRT and LIST are assumed. 


If present, then information is listed on the file LINE 
which indicates how the FORTRAN compiler is analyzing the 


syntax of the source program. 


TRACE should be used only in extreme cases because of the 


great volume of output produced. 


If TRACE is specified, the LIST, PRT, and DEBUGN options 


are assumed. 


* PRT is an abbreviation for Program Reference Table (see B 5500 
Operation Manual No. 1024916). 


SEQ f£f s i 


a. 


HioL 
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If present, the listing on file LINE and the new source 


program on the file NEWTAPE, labeled FORSYM (if NEW or 


NEW TAPE is specified), will be resequenced. 


The specifications following SEQ have the following in- 


terpretations: 


f - the sequence number of the first card of the 


source program. 


s - any special character, usually plus (+) or 


comma (,). 


i- increment. 


Tf i=O, or iis not a number, then 


an increment of 1000 is used. 


The SEQ option, if used, 


dollar sign card. 


If the source cards 
the HOL option need 
then the listing of 


compiler will be in 


are 
not 
the 
IBM 


printed as % = will be 


must be the last option on the 


punched in IBM card code, then 
be used. If this is the case, 
source program produced by the 
card codes; e.@8.5; ( will be 


printed as #, etc. However, the 


compiler will properly interpret the source program and 


compile it. 


Tf the source cards are punched in IBM card code and the 


HOL option is used, 


then all characters will be converted 


to BCL before printing on the file LINE. 


If the source cards are punched in IBM/360 card code, then 


the HOL option must be used to convert the source program 


to BCL. 


TIME 


CHECK 


VOID n 


Ae 


The TOL option will translate all IBM or TIBM/360 cards 

to BCL including strings and Hollerith constants. This 
option also causes the object program produced by the 
compiler to automatically convert into BCL data read with 
an A format specification and data read into Hollerith 


strings. 


The use of the HOL option will slow compilation speed. 
For repeated compilations from large source programs, 

it would be advantageous to use the NEW TAPE option with 
HOL on the first compilation. Thereafter, compilations 
may be made without the HOL option from the generated 


source tape. 


If present and if the LIST option is not present, then the 
source program will not be listed, but at the end of the 
compilation, compilation information will be listed on 


the file LINE. 


If present, and if TAPE and CARD files are being merged 

at compilation, then the sequence numbers in columns 

73-80 of the two files will be checked, and if a record(s) 
from the CARD file is not in sequence, then a warning 


message will be outputted on the file LINE: 
SEQUENCE ERROR "n" < "po", 


where n is the new sequence number and p is the old 
sequence number. The B 5500 alphameric collating sequence 


is used (see appendix G). 


If present, VOID must be the only option on the dollar 
sign card. This option is used only when merging a CARD 


and TAPE file. 


If present, and if n is blank, the record on the TAPE 
file with the same sequence number (in columns 73-80) as 
the $VOID card will be ignored by the compiler, will not 
be listed on the file LINE, and will not be inserted in 
the file NEWTAPE, if the NEW option has been specified 


previously. 


Tf present, and if n is not blank, n must be the sequence 
number of a record existing on the TAPE file and, in addi- 
tion, the $VOID card must have a sequence number in 
columns 73-80. The records on the TAPE file, starting 
with the record which has the same sequence number as the 
$VOTD card (columns 73280 )'s will be ignored up to but not 
including the record on the TAPE file with the sequence 
number n. These records will be ignored by the compiler, 
not listed on the file LINE, and not inserted in the file 
NEWTAPE, if the NEW option has been specified previously. 


ERROR 
NUMBER 


000 
O01 
002 
003 
Oo4 
005 
006 
007 
008 
009 
O1LO 
O11 
O12 
013 
O14 
O15 
O16 
O17 
018 
O19 
020 
021 
022 
023 
O24 
025 
026 
027 
028 
029 
030 


APPENDIX D 
GOMPILE TIME ERROR MESSAGES 


ERROR MESSAGE 


SYNTAX ERROR 

MISSING OPERATOR OR PUNCTUATION 

CONFLICTING COMMON AND/OR EQUIVALENCE ALLOCATION 
MISSING RIGHT PARENTHESIS 

ENTRY STMT ILLEGAL IN MAIN PGM OR BLOCK DATA 
MISSING END STATEMENT 

ARITHMETIC EXPRESSTON REQUIRED 

LOGICAL EXPRESSION REQUTRED 

TOO MANY LEFT PARENTHESES 

TOO MANY RIGHT PARENTHESES 

FORMAL PARAMETER ILLEGAL IN COMMON 

FORMAL PARAMETER ITLLEGAL IN EQUIVALENCE 

THIS STATEMENT TLLEGAL IN BLOCK DATA SUBPROGRAM 
INFO ARRAY OVERFLOW 

IMPROPER DO NEST 

DO LABEL PREVIOUSLY DEFINED 

UNRECOGNIZED STATEMENT TYPE 

ILLEGAL DO STATEMENT 

FORMAT STATEMENT MUST HAVE LABEL 

UNDEFINED LABEL 

MULTIPLE DEFINITION 

ILLEGAL IDENTIFIER CLASS IN THIS CONTEXT 
UNPATRED QUOTES IN FORMAT 

NOT ENOUGH SUBSCRIPTS 

TOO MANY SUBSCRIPTS 

FUNCTION OR SUBROUTINE PREVIOUSLY DEFINED 
FORMAL PARAMETER MULTIPLY DEFINED IN HEADING 
ILLEGAL USE OF NAMELTST 

NUMBER OF PARAMETERS INCONSISTENT 

CANNOT BRANCH TO FORMAT STATEMENT 

SUBROUTINE OR FUNCTION NOT DEFINED IN PROGRAM 


ERROR 


NUMBER 


O31 
032 
O92 
034 
035 
036 
037 
038 
039 
O40 
O41 
O42 
O43 
O44 
O45 
O46 
O47 
O48 
O49 
050 
O51 
O52 
053 
O54 
055 
056 
057 
058 
O59 
060 
O61 


APPENDIX D (cont) 
COMPILE TIME ERROR MESSAGES 


ERROR MESSAGES 


TDENTIFIER ALREADY GIVEN TYPE 

TLLEGAL FORMAT SYNTAX 

INCORRECT USE OF FILE 

INCONSISTENT USE OF IDENTIFIER 

ARRAY IDENTIFIER EXPECTED 

EXPRESSION VALUE REQUIRED 

ILLEGAL FILE CARD SYNTAX 

ILLEGAL CONTROL ELEMENT 

DECLARATION MUST PRECEDE FIRST REFERENCE 
INCONSISTENT USE OF LABEL AS PARAMETER 

NO. OF PARAMS. DISAGREES WITH PREV. REFERENCE 
ILLEGAL USE OF FORMAL PARAMETER 

ERROR IN HOLLERITH LITERAL CHARACTER COUNT 
ILLEGAL USE OF FORMAL PARAMETER 

TOO MANY SEGMENTS IN SOURCE PROGRAM 

TOO MANY PRT ASSIGNMENTS IN SOURCE PROGRAM 
LAST BLOCK DECLARATION HAD LESS THAN 1024 WORDS 
ILLEGAL I/O LIST ELEMENT 

LEFT SIDE MUST BE SIMPLE OR SUBSCRIPTED VARIABLE 
VARIABLE EXPECTED 

ILLEGAL USE OF .OR. 

ILLEGAL USE OF .AND. 

ILLEGAL USE OF .NOT. 

ILLEGAL USE OF RELATIONAL OPERATOR 

ILLEGAL MIXED TYPES 

ILLEGAL EXPRESSION STRUCTURE 

TLLEGAL PARAMETER 

RECORD BLOCK GREATER THAN 1023 

TOO MANY OPTIONAL FILES 

FILE CARDS MUST PRECEDE SOURCE DECK 

BINARY WRITE STATEMENT HAS NO LIST 


ERROR 
NUMBER 


062 
063 
O64 
065 
066 
067 
068 
069 
070 
O71 
072 
07 3 
O74 
O7D 
O76 
077 
078 
O79 
080 
O81 
082 
083 
O84 
O85 
086 
087 
088 
089 
090 
O91 
092 


APPENDIX D (cont) 
COMPILE TIME ERROR MESSAGES 


ERROR MESSAGES 


UNDEFINED FORMAT NUMBER 

TLLEGAL EXPONENT IN CONSTANT 

ILLEGAL CONSTANT IN DATA STATEMENT 

MATIN PROGRAM MISSING 

PARAMETER MUST BE ARRAY IDENTIFIER 

PARAMETER MUST BE EXPRESSION 

PARAMETER MUST BE LABEL 

PARAMETER MUST BE FUNCTION IDENTIFIER 
PARAMETER MUST BE FUNCTION OR SUBROUTINE ID 
PARAMETER MUST BE SUBROUTINE IDENTIFIER 
PARAMETER MUST BE ARRAY TDENTIFIER OR EXPRESSION 
ARITHMETIC - LOGICAL CONFLICT ON STORE 

ARRAYID MUST BE SUBSCRIPTED IN THIS CONTEXT 
MORE THAN ONE MAIN PROGRAM 

ONLY COMMON ELEMENTS PERMITTED 

TOO MANY FILES 

FORMAT OR NAMELIST TOO LONG 

FORMAL PARAMETER MUST BE ARRAY IDENTIFIER 
FORMAL PARAMETER MUST BE SIMPLE VARIABLE 
FORMAL PARAMETER MUST BE FUNCTION TDENTIFIER 
FORMAL PARAMETER MUST BE SUBROUTINE IDENTIFIER 
FORMAL PARAMETER MUST BE FUNCTION OR SUBROUTINE 
DO OR IMPLIED DO INDEX MUST BE INTEGER OR REAL 
ILLEGAL COMPLEX CONSTANT 

ILLEGAL MIXED TYPE STORE 

CONSTANT EXCEEDS HARDWARE LIMITS 

PARAMETER TYPE CONFLICTS WITH PREVIOUS USE 
COMPLEX EXPRESSION ILLEGAL IN IF STATEMENT 
COMPLEX EXPRESSION ILLEGAL IN RELATION 

TOO MANY FORMATS REFERENCED BUT NOT YET FOUND 
VARTABLE ARRAY BOUND MUST BE FORMAL VARIABLE 


ERROR 
NUMBER 


093 
O94 
095 
096 
097 
098 
099 
100 
LOL 
LO2 
LO3 
104 
105 
106 
107 
108 
LOY 
110 
Lil 
2 
113 
114 
115 
116 
L17 
118 
L19 
120 
L121 
Lez 
123 


APPENDIX D (cont) 
COMPILE TIME ERROR MESSAGES 


ERROR MESSAGES 


ARRAY BOUND MUST HAVE INTEGER OR REAL TYPE 
COMMA OR RIGHT PARENTHESIS EXPECTED 

ARRAY ALREADY GIVEN BOUNDS 

ONLY FORMAL ARRAYS MUST BE GIVEN VARTABLE BOUNDS 
MISSING LEFT PARENTHESTS IN IMPLIED DO 
SUBSCRIPT MUST BE INTEGER OR REAL 

ARRAY STZE CANNOT EXCEED 32767 WORDS 

COMMON OR EQUIV BLOCK CANNOT EXCEED 32767 WORDS 
THIS STATEMENT TLLEGAL IN LOGICAL IF 

REAL OR INTEGER TYPE REQUIRED 

ARRAY BOUND INFORMATION REQUTRED 

REPLACEMENT OPERATOR EXPECTED 

IDENTIFIER EXPECTED 

LEFT PARENTHESIS EXPECTED 

TLLEGAL FORMAL PARAMETER 

RIGHT PARENTHESIS EXPECTED 

STATEMENT NUMBER EXPECTED 

SLASH EXPECTED 

ENTRY STATEMENT CANNOT START PROGRAM UNIT 
ARRAY MUST BE DIMENSIONED PRIOR TO EQUIV STMT 
INTEGER CONSTANT EXPECTED 

COMMA EXPECTED 

SLASH OR END OF STATEMENT EXPECTED 

FORMAT, ARRAY OR NAMELTST EXPECTED 

END OF STATEMENT EXPECTED 

TO STATEMENT WITH NAMELIST CANNOT HAVE TO LIST 
COMMA OR END OF STATEMENT EXPECTED 

STRING TOO LONG 

MISSING QUOTE AT END OF STRING 

ILLEGAL ARRAY BOUND 

TOO MANY HANGING BRANCHES 


APPENDIX D (cont ) 
COMPILE TIME ERROR MESSAGES 


ERROR MESSAGES 


TOO MANY COMMON OR EQUIVALENCE ELEMENTS 
ASTERISK EXPECTED 

COMMA OR SLASH EXPECTED 

DATA SET TOO LARGE 

TOO MANY ENTRY STATEMENTS IN THIS SUBPROGRAM 
DECIMAL WIDTH EXCEEDS FIELD WIDTH 

UNSPECIFIED FIELD WIDTH 

UNSPECIFIED SCALE FACTOR 

ILLEGAL FORMAT CHARACTER 

UNSPECIFIED DECIMAL FIELD 

DECIMAL FIELD ILLEGAL FOR THIS SPECTFIER 
ILLEGAL LABEL 

UNDEFINED NAMELIST 

MULTIPLY DEFINED ACTION LABELS 

TOO MANY NESTED DO STATEMENTS 

STMT FUNCTION ID AND EXPRESSION DISAGREE IN TYPE 
ILLEGAL USE OF STATEMENT FUNCTION 
UNRECOGNIZED CONSTRUCT 

RETURN, STOP OR CALL EXIT REQUTRED IN SUBPROGRAM 
FORMAT NUMBER USED PREVIOUSLY AS LABEL 

LABEL USED PREVIOUSLY AS FORMAT NUMBER 
NON-STANDARD RETURN REQUIRES LABEL PARAMETERS 
DOUBLE OR COMPLEX REQUIRES EVEN OFFSET 

FORMAT PARAMETER ILLEGAL IN DATA STATEMENT 
SEQUENCE ERROR "n" < "p", 


where n is the new sequence number and p is the old 


sequence number, 


APPENDIX E 
OBJECT TIME ERROR TERMINATION MESSAGES 


The following object time error termination messages are peculiar 


to FORTRAN compiled programs: 

ARG .GT. MAX f (where f is CSIN or CCOS) 
Imaginary component exceeds 158. 

DATA STMT ERR 
a. Too much or too little data for list. 


bs Complex, double, or logical list element must correspond 


with complex, double, or logical data. 
DIV BY ZERO { job specifier), (terminal reference) 


An object program performed a Divide operation using a zero 


denominator; processing of the subject program was discontinued. 
(job specifier) = (mix index) DS-ED 


Processing of an object program was discontinued before 


End-of-Job; the EOJ option was set. 
<compiler name) / (program identifier) = (mix index) DS-ED 


Compilation was discontinued before the compiler reached 


End-of-Job; the TYPE EOJ option was set. 


EOF NO LABEL (file designator) : (job specifier), (terminal 


reference) 


An object program has reached the end of the designated file 
and has not specified what is to be done; processing of the 


program was discontinued. 


EXPON OVRFLW {job specifier), (terminal reference) 


An object program has performed an operation which caused an 
exponent overflow to occur; processing of the program was 


discontinued. 
FLAG BIT (job specifier), (terminal reference) 


An object program has performed an operation which caused a 
word with a flag bit of 1 to be accessed as if it were an 


operand; processing of the program was discontinued. 


FRMT ERROR 


ae [llegal character in format. 
b. Unrecognizable format specification. 
c. Required numeric field is not numeric. 


d. Field width greater than 63. 


e. Format specifies record longer than buffer. 
INTGR OVRFLW (job specifier), (terminal reference) 


An object program performed an operation which caused an in- 
teger overflow to occur; processing of the program was discon- 


tinued. 
INVALD ADRSS { job specifier), (terminal reference) 


An object program performed an operation which addressed a 
memory location in an absent memory module or an address less 


than 00512; processing of the program was discontinued. 
INVALID ARG CONCAT 

see appendix H. 
INVALID EOJ 


A STOP or CALL EXIT statement was missing from the mainline 


program, and an attempt was made to execute an END statement. 


E-2 


LIST SIZE ERROR 


The number of elements in the list of a READ statement exceeds 


the number of data items in the logical record. 
NEGATIVE BASE XTOTL 

A**B, where A is negative and B is not an integer. 
NEGTV ARGMNT LN (program specifier) (terminal reference) 


A negative argument has been passed to the intrinsic which 


compiles the natural logarithm. 
NEGTV ARGMNT SQRT (program specifier) (terminal reference) 

A negative argument has been passed to the SQRT intrinsic. 
NMLST ERR 


This error message can be generated during input only. 


a. Illegal subscript on data card. 
b. Too many or too few subscripts. 
C's Tillegal character encountered. 
d. = missing. 


» or * missing after a constant. 


f. Repeat count not an integer constant. 
OPRTR DS-ED {job specifier), {terminal reference) 


The system operator caused processing of a program to be dis- 


continued through use of a DS message. 


SELECT ERROR (file designator) : (job specifier), (terminal 


reference) 


An object program performed an invalid operation on the 
designated file, e.g.,; rewinding a card reader. Processing of 


the program was discontinued. 


STACK OVRFEFLW ( job specifier), (terminal reference) 


TYPE 


ZERO 


ZERO 


E-4 


The operations performed by an object program have caused its 


stack to overflow its limit; processing of the program has 


been discontinued. 


ERR 


Exponent part in data contains non-digit after D, E, +, 


or - (input only). 


The data read in using an I specification in a FORMAT 


statement is either: 


L) Greater than the maximum integer allowed (549755813887). 


2) Double or real. 


The list element using a D specification in a FORMAT state- 


ment is not double precision. 


The list element using an E, F, or G specification ina 


FORMAT statement is logical, integer, or double precision. 


The list element using an L specification in a FORMAT 


statement is not logical. 


ARGMNT LN (program specifier) (terminal reference) 


An argument of zero has been passed to the intrinsic which 


compiles the natural logarithm. 


MODULES DMOD 


DMOD(A,B), where B = O. 


NOTE 
For further information, refer to 


B 5500 Operation Manual No. 1024916. 


APPENDIX F 


B 5500 VERSUS USASI FORTRAN, EXTENSTONS AND DIFFERENCES 


ose extensions and differences listed below are based on a com- 
rison of B 5500 FORTRAN and USAST FORTRAN, as specified in the 
cument ASA X3.9-L966. 


TENSIONS PERMITTED IN B 5500 FORTRAN. 


e following extensions are permitted in B 5500 FORTRAN. 


Ae 


b. 


More than one statement per card is allowed. 
The character set includes the quote sign ("), 


The relational operators <, <, x» >, = are allowed in 


place of their FORTRAN mnemonics. 
Hollerith constants may be used in assignment statements. 


Theoretically, there is no limit to the number of dimen- 


sions which can be declared for an array. 


A subscript may be any integer or real arithmetic expres- 


sion. 


In the statement: 


GO TO i;(k,:k,,...:k,) 


Zz 


i may be an integer or real variable. 


In the statement: 
GO TO(k, sky 9++- sk) si 
imay be an integer or real arithmetic expression. 
In the statement: 
IF(l.e.) s 
s may be any executable statement except a DO statement. 
The terminal statement of a DO loop may be any executable 


statement, with any implications involved assumed to be 


understood by the programmer. 


In the statement: 


DO m i=n 


aa 


nN ¢fl 


2° 3 


i may be an integer or real simple variable. 


Nn, »nN,s3n 


1 2 s' 
ny and nN, do 
ion, mys and 


DO statement . 


n 


n 


may be integer or real arithmetic expressions. 


ot have to be greater than zero. 


may, be. redefined within the range of the 


J 


with any implications involved assumed to be 


understood by the programmer. 


CLOSE u; LOCK u; PURGE u. 


In I/O and AUXILIARY I/O statements, u may be an arith- 


metic expression. 


NAMELIST and NAMELIST I/O. 


READ f,k; PUNCH £,k; PRINT f,k. 


The intrinsics: TAN, COTAN, ARSIN, ARCOS,;, SINH, COSH, ERF, 
GAMMA, ALGAMA, AND; OR, COMPL, EQUIV, CONCAT, TIME. 


Random disk I/O. 


Action labels. 


Non-standard returns from subprograms. 


Multiple entry points to subprograms. 


Bach of the two components of a complex constant may be 


either real or integer. 


Hollerith constants and literals may be ehclosed in quotes, 


The format specifications Ow and Tn. 


The ability to have a subprogram recurse. 


DIFFERENCE FROM USASTI FORTRAN. 
In the statements STOP n and PAUSE n, n is blank or an integer 


constant of up to six digits. 


Bed 


CHAR. 


Blank 


Qo } Ram es 


onmoA wow PP + 


COLLATING SEQUENCE 


APPENDIX G 


CODES 


INTERNAL CODE BCL CODE 


OCTAL 
ICE: 


0000 


1010 
1011 
1101 
1110 
W111 


1 
0000 


1011 
1100 
1101 
1110 
W111 
0000 


1011 
1100 
1101 
1110 
W1 
0000 


0001 
1011 
1100 
1101 
1110 
W111 


1011 
1100 
1101 
1110 
W11 


1010 
0001 
0010 
0011 
0100 
0101 
0110 
0111 


CARD CODE 
NUM. 


ZONE 


(on >? ee > ee = eS) 


COLLATING SEQUENCE LOW 


HIGH 


CHAR. 


OCTAL 
oe ee, sad Zone | NUM. 
01 1000 


> 9 7023 7- Xu x 


N< x* &©=< coAwm™m 


—_ © 


0 ON O DO FF WD BW 


APPENDIC G (cont) 
COLLATING SEQUENCE 


INTERNAL CODE BCL CODE CARD CODE 


1 1000 12 
12 


oOo Oo & 


o OnN O OD FF WD DY ~~ 


© 
i] 
LS) 


oo ON O OO FSF WO ND 


Oo 


g 
S 


=) 


HIGH <«—_}S$— = LOW 


So 
Oo 


8$ss88s8888888 
= 
S 


$8888 8 
oo ON OB WO FF WD NN 


ALL OTHER 
CARD CODES 


=) 
=) 
: 


APPENDIX H 
BIT-MANTPULATION INTRINSICS 


The B 5500 FORTRAN compiler provides five intrinsics for use in 
bit manipulation and masking. Tt is assumed that the programmer 
who makes use of these intrinsics has a prior working knowledge of 
the B 5500. All five of these intrinsics permit access to all but 
the left-most bit, bit zero, of a B 5500 word. 


AND. 
This intrinsic logically ANDs bit numbers 1 through 47 of its two 


arguments. The arguments remain unchanged. 


The general form is: 


AND(A,B) 
where A and B are real arithmetic expressions. 


Examples: 


A subscript of 8 indicates an octal number. 
Y=AND(S.T) 


ae oe a eet Y 


B777777777777777¢8 111111111111111il, 11171111111111111, 


1234567023456701. 3210765432107654. 1210565022006600. 


OR. 
This intrinsic logically ORs bit numbers 1 through 47 of its two 


arguments. The arguments remain unchanged. 


The general form is: 


where A and B are real arithmetic expressions. 


Examples: 


A subscript of 8 indicates an octal number. 
Y=OR(S,T) 


tat eee eae a ee a 


PIMTATTT ATTA TTL ditiitiiiiiiiiii, DUTLTEECIT ITE TT 1p 


1234567012345670 3210765432107654, 3234767432347674., 


8 


~ COMPLEMENT. 
This intrinsic returns the logical COMPLEMENT of its argument. The 


argument remains unchanged. 


The general form is: 


COMPL (A) 


where A is an arithmetic expression. 


Examples: 


A subscript of 8 indicates an octal number. 
Y=COMPL(S) 


S) Y 


DAIAAAATTAT LAT hg 0000000000000000. 


1234567012345670, 6543210765432107. 


EQUIVALENCE. 
This intrinsic logically EQUIVALENCEs its two arguments. The 


arguments remain unchanged. 


The general form is: 


EQUIV(A ,B) 


where A and B are real arithmetic expressions. 


Y = EQUIV(S,T) 


S) T Ee 


BITTE CITATEL CT 13 Liiiitilittitiit, L1i11111tittiitit, 


1234567012345670. 3210765432107654, 7D e121 (DID 1238 


CONCAT. 
The FORTRAN intrinsic CONCAT provides general bit-wise partial-word 
manipulation. CONCAT is a REAL FUNCTION of the form: 


where: 
a. <A and B are integer or real arithmetic expressions; 
b. Sl, S2, and N are integer arithmetic expressions; 


em SL. =. O% 

dad. S2 > QO; 

e. N > O; 

f. Sl +N < 48; 
ge. S2 +N < 48. 


Tf any one of conditions (c) through (2) is not true, the object 
program will be discontinued with an INVALID ARG CONCAT message. 


When this function is called, first bit S2 of B is transferred to 
bit Sl of A, then bit S2 + 1 of B is transferred to bit Sl +1 of A, 
and so forth, until N bits have been transferred. In other words, 
starting with bit S2 of B and moving to the right, each successive 
bit is transferred to A, starting with bit Sl of A, until N bits 
have been transferred. A, B, Sl, S2, and N remain unchanged after 
the operation unless they are to the left of the replacement 


operator (=) in the statement referencing CONCAT. 


Although there are 4&8 bits in a word, numbered O through 47, bit 


number O cannot be accessed by using CONCAT. 


Example 1: 


IWORD=64 

JWORD=1 

TBIT=46 

JBIT=47 

N=1 

X=CONCAT (IWORD , JWORD ,IBIT ,JBIT ,N) 


IWORD 


JWORD 


X 
(after) 


Example 2; 


DATA IWORD ,JWORD,IBIT,JBIT ,N/G777 ,G1111 539,36 ,6/ 


JWORD=CONCAT (IWORD , JWORD , IBIT , JBIT ,N) 


H-4 


TWORD 
(before and after) 


Example 3: 


CONCAT(0,1750,24,36,12) 


KOF 


Example 4: 


=42 
CONCAT (A¥12338 ;BIT;6) 


24.08E+0 


INTEGER BIT 
A= 
BIT 


A 


H-5 


H-6 


APPENDIX I 


PRT CONTENTS OF A FORTRAN OBJECT PROGRAM 


EEEEEEEE 

Used by .LABEL. 
500000000 

FPB 

SD 

BC 

AIT 

MSCW 

INCW 

COM/PRL 

R + 0, Stack 
OWNARRAY description 
ALGOL WRITE 
ALGOL READ 
ALGOL FILE CONTROL 
O 

BLOCKCTR 

JUNK 
BASENSIZE 
LISTRTN 

CLASN 

HOLTOG 

Powers of Ten 
20 wd ARRAY for printer output 
ERR 

SQRT 

ARSIN 

EXP 

SIN 

ALOG 

TAN 

ATAN 

GAMMA 

DATAN 

DCOS 

DSIN 

ATAN2 

CABS 

DMOD 

DEXP 

DSQRT 


TITLE 


Action Label. .. .- 


Actual Argument. . 


Actual Parameters . 


Alphanumeric, .. . 


AND... . 


Area Option . ... 


-ARG .GT. MAX f.., 


Argument, Actual. . 


Arguments, 
Arithmetic 
Arithmetic 
Arithmetic 
Arithmetic 


AYrTay . ee 


Dummy. . 


Assignment 


Expression 


e 


Statement 


ITF Statement 


Operators, 


e e e e 


Array, Format In. . 


ASSIGN Stat 


ement. . 


e 


Assigned GO TO Statement. 


Assignment Operator 


Assignment Statement, 


Assignment Statement , 


Auxiliary I/O Statement 


Aw e e e e 


BACKSPACE §$ 
BCL ® e e e 


tatement 


Bit-Manipulation Intrinsics 


Blanks, Significance of 


BLOCK DATA Statement 


BLOCKing ; 
Bounds, Sub 
BUFFERing , 


script. 


e 


Logical 


e 


Arithmetic 


INDEX 


e e e 
e e e 
e e e 
e e e 
e e e 
e e e 
° e e 
e e e 
e ° e 
e ° e 
e e ° 
° e e 
° e ) 
e e e 
o e o 
e e e 
e e e 
e e e 


one 


3-2 


I 1 
nN 


! I 
On ee a 


Ni 


! 
nw 
NI 


FrereuuNwv nN WU ww Ff Ow 
] | I | I 1 
MOF KF WD W 


TITLE 


CALL EXIT Statement . . . . « « « « 
CALL Statement. .« .« « « © « «© « «© « 
Cards, Change .« «6 « «6 « « © © « « e« 
Cards, Comment. -« «6 «© «© © © © « 6 % 
Cards, Continuation «© « « «6 «© « « » 
Cards, Dollar Sign. «© «. «© « « «© « « 
Cards, FILE . .« « « © © © «© © « « « 
Cards: Patel --: #. © wi Js Bo S 6. we 
Cards; .Progerai. 6 @ << @ oe oe oe) 4 
Carraagce Controd ss «. « <- “si os wa Gs 
Change: Cards <. 4 i 6 *. « Se & Bow 4 
Character Set . 2. 6 « © « « s s «# « 
Characeer: Strange ~. 6. <6. ceo Ses ut Ge er aS oe 
CC es ie. igs a ae Jae leis a ei Tig) RE ie tae ee 
CLOSE Statement . . « « « «© © « « e 
Collating Sequence. .« . « « « « « « 
Comment CardS . .« « «6 «© « «© «© e « « 


COMMON Statement, . . « « « «© e « « 


Compile Time Error Messages ... . 
COMPLEMENT. « « © «© © «© © © © «© © «© 
Complex Constant o © © © © «© © @« «@ 
Complex Variable a ee ee ae oe ee ee 
Computed GO TO Statement. .... - 
CONCAT . .« «© «© »© © © © « © © © © « 
Constant, Complex . . « « « « « « « 
Constant, Double Precision. .«... . 
Constant, Hollerith . ...e « « « « 
Constant, Integer . .« « «6 « « « « -« 
Constant, Logical . .. « « « e e e« 
Constant, Real... +. « «© © «© «© e « 
CONS VATIUS: “4c i “a eo a Ry SE WE oe er ee es 
CONTINUE Statement . . . « « « « « e 
CONCINUATLON. Cards ~«. <<. % -s%* # “woe 
CONTYTO! ‘Carriage << 8) sé ce c€ ow Se we 


Control Statement . « «© « «© s% «© © ‘6 


two 


7 = 


e e 
e e 
° e 
e e 
e e 
e e 


e ° 
e e 
e e 
e e 
e e 
2-6, 
e e 
« e 
e e 
e e 


2-54 


e e e e 
e e e e 
e e e e 
e e e 


e e e e 
® 6 e e 
e e e e 
e e e 

e e e e 
e e e e 
° e e e 


5-10; 


oe 
« 
° 
2-7 4 
° 6 
ee 
° 


a-3; 


8-55 


| | | re | 
WP Fh we w & Ud 


nm vd Bu an 
] 


NM HM WY 
! I ] I 
Lo UT 


Lt 
] 
SJ 


TITLE 


DATA Statement . . .« «© «© «© «© © © « « 
-DATA STMT ERR... «© © © «© «© © © « 
DEBUGN. . « « «© © © © © © © © © # «@ 
Deck, Set-Up... « « 6 « © © « 6 » 


Declarative (Non-Executable) 
statement. .« « 6 © © «© © © © © «© © » 


Default Descriptions, File, ... . 
Difference From USASI FORTRAN .. . 
DIMENSION Statement . ....« «© « e 
Dimensions, Variable... .. « « e 
Disk File, Random .... « « e e« e 
Disk Fates S6riak xr ego 8 gh te ee 
DaSis Ose eo aca “Take Sea tw) Ge ee 
Disk 1/05 Rando... -S. a! se wo ar eae 
Disk? 3£/ O04 Serato ce ee Ge oa oe eS 
-DIV BY ZERO... .. +. «© «© © © «© « 
DO Loop, Implied, ....+.e.« « » 
DO “SEATSMGN G5. cs.) sé. er el Se) cee We See Bae 8 
Dollar Sign Card Options. .... . 
Dollar Sen Cards < 60 4 es 4%. “ewe. < 
Double Precision Constant ..... 
Double Precision Variable .... . 
Dummy ArgumentS . . . . 6 « 6 «© «© « 


Dw.d e e sd e e e e e e e e e e e e e 


End-of-File Condition ...... . 
END Statement . .... «6 © «© © « »« 
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